TRICKY TUTORIAL #8 
CHARACTER GRAPHICS 


by 
Stan Gilbert 


HOW TO LOAD 


Tape.... 


With the BASIC cartridge in place, turn the computer 
on. Place the tape In your recorder, label side up. Make 
sure the tape Is rewound and the counter is reset to zero. 
Push PLAY on the recorder, type CLOAD and press RETURN 
twice. If the program won't start to load, try positioning 
the tape forward or backwards a /Jittle. When the READY 
prompt appears, type RUN and press RETURN. We recommend you 
write down the number on your recorder's counter as each 
program example starts as this will make if easier to find 
each part later on. 


Disk.... 


To LOAD and RUN the disk, first turn on your disk drive. 
When the busy light goes out, place the disk in the drive. 
With the BASIC cartridge In place, turn on the computer and 
the program will LOAD each part and RUN by itself. 


ATARI is a registered trademark 
of Warner Communications, Inc. 


(c) 1983 by Educational Software,Inc. 
Any defective tapes or disks should be returned fo: 


Educational Software Inc. 
4565 Cherryvale Ave. 
Soquel, CA 95073 
(408) 476-4901 
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INTRODUCTION 


All right! My ancestors on the cover were not the most 
attractive relatives a person could have, but what do you 
expect from characters? What Is CHARACTER GRAPHICS anyway? 
Well, It Is a simple and efficient way of creating special 
shapes, called characters, on the display screen (TV) of a 
computer by manipulating the numbers Inside the computer 
that control the shapes. You are already familiar with what 
a character is. The fetters of the alphabet are characters. 
So are the numbers, and, special symbols such as the. 
question mark (7), slash (/), quote ("), etc. ATARI: 
provides some "special" characters that can be used to draw. 
forms and, when cleverly combined, can create ‘other 


Interesting shapes, Iike a house or robot. These shapes were 
my ancestors. The attractive drawing on the cover of me 
(Prototype) shows how good | can look using all the power 


bullt Into the ATARI. 


When you LOADed the CHARACTER GRAPHICS TRICKY TUTORIAL 
software you saw the company logo for Educational Software. 
The large "E" and "S" were shaped using a serles of blocks. 
Those blocks were not shapes that are built [nto the 
keyboard. We had to create them as {! will describe later. 
Now | will turn you over to the Instructor of this lesson, 
the famous PROF. VON CHIP! 


LOGO 


Hi. We will begin today's lecture by describing how to 
use your Character Graphics Tutorial. The following programs 
are on your tape or disk: 


LOGO.CG 
HORSE 
PICTURES 
LESSONO1 .CG 
FONTFLIP | 
LESSON02.CG 
SHOWBYTE 
SHOWCHAR 
PROTO 
GARDEN ; 
CHAREDIT.UTL 
GARDEN.FNT 


The best way to learn all of the brilliant stuff I am 
teaching. you Is to first read through the entire manual. 
Then go back and read the manual with the examples running. 
The heading at the top of the page will tell you which 
example should be running at the time to best understand the 
technical talk. Next, use the CHARACTER SET EDITOR we've 
included. It Is actually more powerful than those belng 
sold by the other guys all by Itself. The final step Is to 
see all of the Ideas that were discussed working [In an 
-actual example! Proto's Garden Is an actual program that Is 
‘belng developed for a set of childrens games. By refering 
back to the maln section of the manual, and using the 
Included notes, you will see how simple a complete game Is 
using Character Graphics. 


NOTE: 


| The software In this tutorlal fs not protected. The 
Intention Is to make avallable all the source code for 
educational purposes. Please BREAK any program as It runs, 
and look at the BASIC code. It will help explain what Its 
being shown to you, along with this finely written manual. 
Every attempt has been made to write code that Is concisely 
REMARKed, with each IIne not exceeding 39 columns, and IIine 
numbers that are multiples of tens. Coding should, for the. 
most part, be logically written In a "TOP DOWN" structure 
for easy learning. These are only a few "professtonal" 
touches to writing good effective programs and technique Is 
presented here as well as content. 
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The following programs are included [In the Educational 
Software Character Graphics Tricky Tutorlal. Tape users 
should fill in where on the tape each part starts. This will 
allow you to reload any part without searching the whole 
tape: 


LOGO.CG - The Educational Software company logo and title 
scroll. Starts at: 


HORSE - A demonstration of advanced character graphics 
animation. Starts at: 


PICTURES - A series of "PICTURES" designed entirely from. 
standard ATARI graphics characters. Also a simple 
demonstration of character graphics animation. 

Starts at: 


LESSONO1.CG - An Introductory "LESSON" to supplement the 
text and open the doors to some fun programming. 
Starts at: 


FONTFLIP - This program simply lets you "FLIP" through 
several variations of the alphabet. The Intent Is to show 
varfety and the speed with which you can change the 
character set. The technique used [s NOT page flipping! 

: Starts at: 


LESSONO2.CG - The second of two lessons to supplement the 
text. Lesson two Is designed to help explain the structure 
of a BYTE. Starts at: 


~ SHOWBYTE - A program that allows you to graphically see how 
BIT manipulation defines the value of a BYTE. There are 
some noteworthy techniques used In this program. 


STAGES Oi on 


SHOWCHAR - This program clearly andl graphically displays how 
BYTES build an Image of a character. Star (Seca Sic 


PROTO - Proto will demonstrate primitive character graphics 
In GRAPHICS MODES 0, 1, and 2. You'!Il need your joystick. 
Starts at: 


GARDEN - A complete and fun game putting [t all together. 
How to animate, create special characters and perform some 
interesting game strategies. Starts af: 
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LINKBAS.UTL- A utility program for use [In converting your 
custom fonts Into strings that can be stored within your 
BASIC program. Starts at: 


CHAREDIT.UTL - This fs our own character editor which has 
some very special features not found In any other editors on 
the market, such as Instant animation! Starts at: 


GARDEN.FNT - The character set used In the GARDEN game. 


This will assist you In learning to use the character editor 
and seeing the application In GARDEN. To load this [fn you 
must be running the Editor. Starts at:_ 


All programs are SAVEd [In ATARI BASIC and are CHAINED to 
RUN [In the order they are IIsted here. You may BREAK out of 
any program and RUN another anytime you choose. Be cautious 
that RAMTOP Is normal before golng on though. This may be 
Insured by using the SYSTEM RESET key and returning fo 
BASIC. © 


Any comments regarding software, or, for that matter, 
the tutorial In general, are always appreciated. Please 
direct correspondence fo: | 

TECHNICAL DIRECTOR 
Educational Software,Inc. 
4565 Cherryvale Ave. 
Soquel, CA. 95073 


. HORSE 


If you do not yet have "Horse" on the screen, please 
LOAD this program now. "Horse" Is a rather sophisticated 
demonstration of a horse moving across the screen. It was 
provided to show you what CAN be done with a modified 
character set. My robot friends over at APPLE(tm) tell me 
that the data for the horse was originally created there. 


_Next RUN PICTURES. These are drawings created with the 
standard character set provided by ATARI. Included Is a 
simple demonstration of character animation of a bat flying 
In the castle from our TRICKY TUTORIAL demo disk. Take some 
time and look at the drawings. See how they are 
constructed. . 


ty t 
- s2gits 
oe 2 3 A 
MODIFIED STANDARD 
CHARACTER CHARACTER 
SET SET 


PPTETETERTEETETETLETETEETESEOREETETEE EEE ETETEELEPESEESE EEE LEETETE EE EEE SES i 
EEE SHE EETE EEE ETEESSASEE TAL EEEELEEEEEEPESSEBSHE EEE GEESEEEMRcucaaeasaccasisseecoeece 


Vooesecgssscezesseccesoesssacs 
Sieee 


You should familiarize yourself with all the characters 
avaliable in the ATARI(tm) character set 
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PICTURES 


You shouldn't take that suggestion too lightly. Peek In 


your ATARI manual and study the avallable characters. If 
you play around with the characters on the keyboard, you 
will be suprised at how creative you can be. A good place 


to do that Is In’ the MEMO PAD. Many people are not famillar 
with the MEMO PAD feature of the ATARI computer. If you 
enter BASIC and simply type In BYE followed by pushing 
RETURN you will enter the MEMO PAD. AII this does {ts allow 
you to play around on the screen without your actions being 
meaningful to the computer. Hence, you can draw pictures or 
write nasty notes to people you don't IItke and the screen 
disappears when you leave the MEMO PAD. It Is a conventent 
place to experiment. 


You can do the same thing In BASIC If you are careful 
not to try and execute anything you type (by pushing 
RETURN). To exit the MEMO PAD just push SYSTEM RESET. All| 
of the examples In "Pictures" can be made this way, you just 
can't save them. To save them, see the method In the actual 
code of the "PICTURES" program. It merely Involves ustIng 
the print statement. If this fs too difficult for you, | 
recommend Tricky Tutorlfal(tm) #4, Basics of Animation. 


There are several reasons we find character graphics 
desirable. For example, It Is easy to use, From the 
programmer's polnt of view, graphics characters are 
Identical to text on the ATARI. As with text, graphics 
characters can be stored In a string. The string can 
Include cursor control characters as well, such as the 
familtar " ™", The string can then be positioned and 


printed anywhere on the screen. Character graphics Is also 
memory efficient. 
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LESSON 1 


To draw high resolution pictures usually requires a 
graphics mode I!tke GR.8 which uses up 8K of RAM. If you can 
accomplish the same drawing using character graphics, then 
you can use GRAPHICS 0, which requires less than 1K. Speed 
of application Is greatly Increased when using character 
graphics as opposed to dot matrix, or bit mapping because 
there Is so much less to be changed In the computer's 
memory. 


Ease of use, memory management, and speed are all good 
reasons to use character graphics. You may think you are 
limited by only having 128 characters but even that can be 
Overcome by using advanced methods such as Display List 
Interrupts. This and other techniques will be explained In 
an advanced character graphics tutorial. 


DON'T PANIC! 


If all of the above has you lost, | will now go Into my 
long winded, start from the top explanation, all [In one 
paragraph! Let's see how Proto can be. created on the 
screen, 


Read through LESSON #1 on the computer screen, then 
take a look at the next example In the software, FONTFLIP, 
allows you to flip through several different fonts showing 
the variations on the alphabet. This technique of quickly 
changing the character set can be accomplished [In two 
different ways. We will teach you both ways and provide you 
with a simple assembly language routine you can use for one 
of the techniques. 
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LESSON 2 


RUN the next program, called LESSON #2. lf the 
material seems too simple, feel free to skim read until you 
find a part that you-need to read more closely. Readers of 
our earlier tutortals expressed a desire for more of the 
basic explanations, so this time we are golng to tell you 
everything we know! | | ; 


NOTE 


If any of the programs come up looking like something 
Is wrong, press the SYSTEM RESET key, then type RUN. When 
messing with the computer's memory as we are, it Is not 
always possible to make everything work for all computer 
memory sizes. : 
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SHOWBYTE 


FROM BITS TO BYTES 


It is necessary to understand what a BYTE Is and how It 
Is structured before learning how a character Is structured. 
A BYTE Is really not complicated at all. A BYTE Is simply a 
group of elght BITs. When efght BITs are structured Into a 
BYTE, then each of those BITs has special significance. You 
look puzzled! What, you say, Is a BIT? 


A BIT Its the smallest piece of Information a computer 
can deal with. In fact, the computer only deals with BITs 
at the most fundamental level. It may be helpful to Imagine 
the microprocessor as a bus station. This bus station has 
only one single lane road attached to It. That means a bus 
can travel In only one direction at a time as there Is not 
enough room for two busses to pass each other. Therefore, a 
bus may elther be arriving at the station or departing. The 
microprocessor, or bus station, can schedule its bus with a 
signal light that says "I AM ACCEPTING ARRIVALS" or "I AM 
SENDING DEPARTURES", 


In fact, In real computer hardware architecture, the 
wires that carry Information to and from a microprocessor 
are called the DATA BUS. We don't need elght separate INPUT 
and eight separate OUTPUT wires because, IIike the single 
lane road connected to the bus station, the wires are 
bi-directional, that Is, Information can elther be arriving 
(INPUT) or departing (OUTPUT). The microprocessor also has 
a signal of Its own that determines whether It will receive 
(INPUT) or send (OUTPUT) Information. 


Let's take a closer look at that bus. It IS known as 
the BYTE express, has elght seats, and always carries elght 
passengers. Those passengers are little messengers known as 
BITs, and, as a group, they are known as a BYTE. These 
messengers, or BITs, are rather moody. They are elfther 
turned "ON" or they are turned "OFF". That is called BINARY 
as they are BI-STATE signals, ON being a "1" state or OFF 
being a "0" state. Thelr vocabulary Is just as I Imited.... 
the only thing they are willing to tell you is their mood. 
Now how do we get any meaningful Information out of a group 
of elght little monsters standing [In front of us, each 
screaming "ON" or "OFF" at one time? 
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SHOWBYTE 


Well, when the bus arrives, we could have the whole 
BYTE stand In front of us and count everyone who Is turned 
"ON". That would give us the capability of counting to 
elght. Seems pretty IIimited, doesn't [+t? Hmmm, the group 
really needs a leader. That leader wil! be the first BIT on 
the left. We'll call that BIT the Most Significant Bit, or 
the MSB. The last BIT on the right will be the Least 
Significant Bit, or LSB. Terrific! Now that we have a 


group leader and a group follower, then all the BITs should 
have a rank. 


Handing out ranks Is a serious matter and much thought 
should be given to It. We can start with the LSB and assign 
that BIT the rank of "1", since It Is the Least Significant 
Bit. We can be easy on everyone If we just double that rank 
for the next BIT In line. So, why not just keep doubling 
the rank for the next BIT In Iine and so on until we get to 
the MSB or Most Significant Bit. Now our BYTE looks 
something IIike this: 


What have we gained? More than meets the eye! When 
the BYTE gets off the BYTE express and each BIT starts 
telling us what thelr mood for the day Is, we can make a 
different and more meaningful [Interpretation out of the 
Ignorant little beasts. If everyone Is turned "OFF" except 
the fourth BIT from the right we can check the rank of that 
BIT and find It Is efght (8). Unknown to the BITs, they 
have brought us a message and the message [s "8", By now 
you should have a program on your ATARI called "SHOW BYTE". 
This program will graphically demonstrate the structure of a 
BYTE and the effect of setting or re-setting the different 
BITs. In the center of your screen you should be looking at 
something [ike this: 
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SHOWBYTE 


BYTE 


4 LSB VALUE 


.MSB 
[zz0] o4] sz] sef o J s+ 7 2 Js | [oes] 


To 


BIT o 


RAE GLA aE EERIE EE SEMEN TE AAI EEE RTT I ROL LEDIEN TITS NR LE ATO EON ER SN NSTI SE OTD SLE SEITE ER TEE 
INDEX SET BIT Mim auxrT 


Moving the bit pointer Its accomp!Ished by. pushing the 
cursor control keys showing the left arrow or the right 
arrow. You will notice that the "rank" of each BIT Is 
posted above the BIT. When we talk about having elght BITs 
grouped together as a BYTE we refer to them as BITs zero (0) 
through seven (7), seven belng the MSB. You can see the 
number of the BIT change on the BIT polnter as you move It. 


Computers are very efficient and do not I!ke to waste 
Information, therefore, computer related numbers usually 
start at BASE ZERO (0) since It Is a unique number also. We 
usually Ilke to start counting with one (1) for the 
convenience of our thinking process. That way, the number 
we arrive at when we have counted the fast Item actually 
represents the number of Items we counted. Normally, we 
would count the BITs as one (1) through elfght (8). The 


computer thinks a little more efficiently than we humans do a 


and sees BITs zero through seven as representing elght (8) 
individual BITs. 


There [s a box to the right of the BYTE representation 
which contains the decimal value of the BYTE. Now you can 
move the pointer to any BIT you want and toggle, or switch 
back and forth, the "mood" of that BIT simply by pushing the 
SPACE BAR. As you SET (turn "ON") or RESET (turn "OFF") the 
various BITs you wlll observe the value of the BYTE change 
accordingly in the vaiue box. A SET BIT ("ON") will be 
Indicated by a black box and a RESET BIT ("OFF") Is empty. 


lf you SET or turn "ON" only the fourth BIT (BIT #3) 
from the left you will observe a value of elght (8) In the 
value box. That was the message we recelved! 


Ahal We now want the BITs to get on the bus and carry a 
message back to the sender. We want them to tell the sender 
"9", Oops, a small problem, there [Is no BIT with the rank 
of nine In the BYTE. What to do, what to do? | guess the 
next best thing Is to be very nice to the LSB, pat It on the 
head, and turn [It "ON", Remember, the LSB has a rank of 
"1", If we don't make the BIT with the rank of "8" unhappy, 
and that BIT stays turned "ON", when the sender recelves our 
message from the return BYTE coming on the bus, he will find 
BITs with the rank of "1" and "8" turned "ON", Adding those 
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SHOWBYTE 


ranks together gives a message of "9"] l' il bet youtre 
beginning to get the picture. Adding the value of each BIT 
that Is turned "ON" can give us a numerical range of 0 to 
255. That Is a total of 256 cases If you count 0 as a case. 


Try playlng around with the BYTE In "SHOW BYTE" and see 
for yourself how the value of the BYTE changes as you Ee 
and RESET varlous combinations of BITs. 


Fine, you are saying, but, how does this /IIttle 
arrangement form the Image of a character on the screen? 
We're getting there! Remember those watch dlals that "glow 
In the dark"? Well, they don't.actually generate J Ight, 
they store It. You always had to hold a flashlight over the 
dial for a minute to make It glow. Then, as It got dim, you 
gave it some more IIight to brighten It up. The TV screen or 
computer terminal screen works much the same way. 


The backside of the glass screen Is coated with 
hundreds of tiny spots of-.special phosphors that "store" the 


energy of a-Ilght beam for a brief period of time. If you 
are [In a dark room with a television set that Is off and you 
shine a flashlight on the screen, oa will glow faintly when 


the flashIiight Is turned off. 


When the set [fs turned on It provides Its own tiny beam 
of energy Inside the tube. This beam Is needle thin and 
positions [ttself In the upper left corner of the screen. It 
Is then electronically mantpulated to sweep across the 
screen from left to right, making the phosphor glow on that 
thin IIne. Itt then moves back to the left hand side of the 
screen and drops down just one thin line, the thickness of 
the beam, and repeats the sweep. This process of "SCANNING" 
Is repeated hundreds of times in 1/60th of a second so all 
the phosphor on the screen Is glowing. If the amount of 
energy the beam Is carrying Is the same all the time you 
would observe a blank screen of some brightness. 


However, If we vary the amount of energy In the beam as 


it.strikes each tiny dot of phosphor then each dot will glow 
with a different brightness and a "picture" will be formed. 
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SHOWBYTE 


We will see black where the beam had no energy and a bright 
color where the beam had the most energy. Everything In 
between Is just a different shade of gray, or green, or 
whatever color the phosphor Is when It glows. Naturally, 
because the whole screen Is done In Just one sixtieth of a 
second, It Is too fast for you to observe anything but the 
finished "painting" on the screen. 


EACH ONE OF THOSE GLOWING DOTS IS CALLED A PIXEL. 


Things get easter once you understand this process. . We 
can now_use a single BYTE to.represent a MAP of elght screen. 
PIXELs. This Is called BIT MAPPING! Let's say we have the 
tinlest TV screen in the world. In fact [It Is only eight 
PIXELS wide and one PIXEL deep. It would look Just IIike the 
BYTE represented In "SHOW BYTE". If we use that BYTE as a 
MAP or guide to turning our beam on and off then you can see 
that where a BIT was SET or turned "ON" that PIXEL would 
glow brightly and where {it was RESET or turned "OFF" the 
beam would have no energy and the phosphor would not glow. 
That doesn't provide a very entertaining display and being. 
so tiny, with each PIXEL so close to one another, you would 
need a magnifying glass to see which PIXELs were on or off. 


A more ambitious TV screen Is needed here! If we leave 
it elght PIXELs wide and expand It to elght PIXELs deep we 
have made a giant step for video freaks. We now have a 
screen with 64 (8X8) PIXELs. We can BIT MAP the screen 
using elght BYTES Instead of one. Each BYTE would represent 
one I|ine on our screen. By varying the BIT pattern of each 
BYTE and stacking them we can form an image. RUN the next 
program SHOWCHAR ("SHOW CHARACTER") and you wil! see a 
representation of our tiny TV screen and how we can form an 
Image on It. 
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SHOWCHAR 


WOW - LETTERS! 


Imagine a whole bunch of these tiny TV screens together 
and you have your computer display. In fact, your ATARI 
display Is 40 characters (columns) wide and 24 characters 
(rows) deep. That Is 40X24 or 960 of our tiny TV screens 
bunched together. Each tiny screen displaying the character 
of our choice! Terrlftc! 


WHERE DO ALL THOSE LETTERS COME FROM? 


If you have looked Into some ATARI references you have 
probably come across a chart showlng memory use for the 
different GRAPHICS modes. For Instance, GRAPHICS O requires 
960 BYTES of RAM for a complete screen. That's a familiar 
number. We just determined that we had 960 tiny TV screens 
combined to form one Jarge screen. Hmmm, my subconsclous Is 
telling me there Is something wrong though! 


We had determined that EACH tiny TV screen requires 
eight BYTES. Well, 8 X 960 suggests we need 7680 BYTES to 
display a GRAPHICS 0 screen. Let's make up our minds. Do 
we need only 960 BYTES of memory or do we need almost 8K 
(1K=1024) BYTES of memory? Well, the answer Is 960 BYTES, 
Just like the books say. The memory area that holds the data 
for the screen Is called screen RAM. However.... 


SO WHERE ARE ALL THOSE BYTES? 


You wif! recall that each tiny TV screen Is made of 8 
BYTES, and, with a little checking around In your ATARI 
BASIC Manual, you will find that ATARI provides 128 
different characters. Ah, two numbers.... what shall we do 
with them? Multiply them, of course! 128 different 
characters, each requiring 8 BYTES means that to store the 
entire character set will require 1024 BYTES of memory. The 
computer needs to know how to construct each character and 
It must have all those IIttle BIT MAPS as reference guides 
to do It. 
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SHOWCHAR 


Let us pause, as If this weren't cleverly planned, to 
discuss two different kinds of MEMORY. AIl computers have a 
kind of memory that you cannot WRITE to. It Is called ROM, 
or Read Only Memory. It Is similar to a reference Ilbrary 
full of books needed by the computer to figure out how to 
perform special tasks. We don't normally WRITE Information 
Into books. They provide Information. ROM devices are 
written Into, or programmed, at the factory where the 
computer Is manufactured... Otherwise, along with many other 
things, you would have to enter all those BIT MAPS for the 
character set yourself every time you turned the computer 
on! That wouldn't qualify as fun and computers should be 
tools that are fun. 


Another kind of memory Is called RAM or Random Access 
Memory. Random access Is a fancy way of saying we can 
elther READ from or WRITE to It. This Its the kind of memory 
your programs reside In. When you turn on the computer the 
RAM Is Initiallzed In-an empty or "ERASED" state. Since 
whatever Is being displayed on the screen Is subject to 
change, that Information Is stored [n RAM. Now we have 
accounted for all the memory needed for a GRAPHICS 0 screen. 
1024 BYTES of ROM for the character BIT MAPS and 960 BYTES 


for the screen. | sense you are still a bit confused.: | 


Where does that 7680 number come In? | mean, we still have 
960 tiny TV. screens, each requiring 8 BYTES and 960 X 8 
stiil equals 7680! Before terminal overloads, read On....- 


Since we are handing control over to the computer 
regarding the formation of éach character, we are not. 
obliged to specify each of the 8 BYTES used to print a 
character. We just have to tell the computer we want an nA" 
printed In a particular tiny TV screen and where the 
computer should look In ROM to find those BYTES. 


SHOW CHAR 


Let's take a closer look. Suppose the word "ARFI" 
(known to many dogs) Is printed In the upper left hand 
corner of the screen and the rest of the screen Is blank. 
If we looked Into screen RAM we would see the first four 
BYTES had decimal equivalents of 65, 82, 70, and 33. 
Looking at the ATASCI!I table [In our ATARI manual shows these 
numbers to be the decimal CODES for the characters "A", "R", 
"F", and "I". For the first letter we see an "A" on the 
screen, not the number 65. Also, 65 Is just one byte and 
we are observing 8 BYTES on the screen, all forming the 
character "A", So, you see, In a manner of speaking, what 
Le see on the screen Is not what [s contained In screen 

AM. | 


IMPORTANT! 


- THE INFORMATION IN SCREEN RAM IS ONLY A REFERENCE THAT 
TELLS THE COMPUTER WHERE TO LOOK IN ROM TO FIND THE SERIES 
OF BIT MAPS NEEDED TO FORM THE CHARACTER ON THE SCREEN. 


[T 1S IMPORTANT YOU UNDERSTAND WHAT HAS BEEN SAID TO 
THIS POINT. If your mind Its fogged over then read the text 
again. Take It slowly, the computer wasn't bullt In a day 
you know. | 
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SHOW CHAR 


MAP READING BUILDS CHARACTER 


All of this talk of ASCII and ATASCI may seem difficult 
to some of you. If you look In the BASIC manual, you will 
see that they just represent ways of using numbers to stand 
for letters; ATASCI! Is the way It Is done instde the ATARI, 
and ASCII Is the "standard way " everyone else does It. 


Memory Is addressed In PAGEs (also called high order 
address) and FREE BYTES (called low order address). A PAGE 
Is 256 BYTES of memory and "FREE BYTES" Is anything less 
than a page. There Is a memory location, called the 
CHARACTER BASE POINTER, that contains the high order address 
byte which points to the beginning of the character set [In 
ROM. It Is location 756 of SYSTEM RAM which Is reserved for 
the computer's use. 


When you are In BASIC you can execute a PRINT PEEK(756) 
statement and see Its contents. It will probably be 224. 
Since It Is the high order address byte (representing 224 
pages of memory), we must multiply It by 256 (bytes per 
page) to arrive at the address In memory where the character 
set resides. 224*256 Is 57344. The followIng BASIC program 
will let you look at the.BYTES In the character set that 

form the first four characters. 


100 DIM D$(2):D$=" " 
110 CB=PEEK(756):CA=CB*256 
120 FOR CHAR=0 TO 3 
130° ? CHAR+I;",. "; 


140 FOR BYTE=0 TO 7 

150 B=PEEK (CA+BYTE+CHAR¥8) 

160 IF B<100 THEN ? D$(1,3-LEN(STRS$(B))); 
170 2 Bs | 

180 NEXT BYTE 

190 2 

200 NEXT CHAR 

RUN 

1. 0 0 606 0 0 0 0 0 
2. 0 24 24 24 24 O 24 0 
3. 0102102 102 0 0 0 0 
4. 0 102 255 102 102 255 102 0 


NOTE Lines 100 and 160 pad the values with leading spaces 
for even columns. The FOR/NEXT loops [nitlallze at 
zero since memory Is addressed from BASE 0. 
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SHOW CHAR 


If we look at the BYTES that make the first character we 
notice they are all zero. You've probably guessed that they 
represent the "SPACE". The next three characters are the 
"I", "QUOTE", and "#", You can verify this with elther 
"SHOW CHARACTER" or the "CHARACTER EDITOR", both of which 
are Included. 


This [s a good time to talk about the order In which 
the character set occurs fn ROM, and how to poltnt to the- 
bytes that compose each character. If you look at the 
ATASCII table In your ATARI BASIC Manual, you will see the 
characters IIsted In decimal order. ATASCI|I DECIMAL ORDER I{S 
NOT HOW CHARACTERS OCCUR IN ROM. "Rats", you say. ATARI 
chose a different order to make life easier on themselves 
regarding their plan to select both upper and lower case 
letters In Graphics modes 1 & 2. However, this makes It 
harder on us. The Nerve! 


ATASCI I decimal values 32-95 are the first 64 characters 
In ROM. ATASCII decimal values 0-31 occur [In positions 64-95 
and decimal values 96-127 represent thier true positions In 
ROM. A simple statement In BASIC wil1i -compensate: for this 
welrd arrangement: | 


1040 N=C-(C>31 AND C<96) *32+(C<32)*64 


where C=ASCII value of the character. The expression (C>31 
and C<96) will return a value of 1 tf true and O If false. 
This gives a result of elther 32 or 0 (32*1 or 32*0). The 
same logic appifles to the second expression. The first and 
second expressions are mutually exclusive. That Is, only one 
or the other can be true. If neither Is true then the result 
of both expressions Is 0 and N will equal C. 


To find the position of the first byte of a character, 
just multiply N by eftght bytes and add the result to the 
beginning address of your character set. There Is a great 
deal more to the CHARACTER BASE POINTER than we have 
discussed. Remember, we sald [t Is In RAM. That means we 
can change It to any value we want with a simple POKE 756,n 
(n being the new value) statement In BASIC. We can read the 
character set from ROM, place It anywhere [In free RAM, and 
point to the new location by changing the CHARACTER BASE 
POINTER. : 


ss: DO: 


SHOW CHAR 


"Well, great," you say,"but, why?" Simple, once we 
move the character set to RAM memory, which Is easily 
Changed with the POKE statement, we can edit it to sult our 
own desires. Now we are truly on the road to happiness! 


WHERE TO MOVE TO 


Actually, you are free to move the character set to any 
place In free RAM you desire, however, a IIttle care will 
prevent a lot of grief. It Is desitrable, If you really 
Intend to use your alternate character set, to protect It. 


Remember the CHARACTER BASE POINTER? Well, that Is 
Just one’ of many special address locations that are held [n 
reserved SYSTEM RAM for the operating system to use. If you 
do not already own a MASTER MEMORY MAP(tm) from Educational 


Software, then we highly recommend you obtaln one. It Is a 
comprehensive IIsting of Important system memory locations 
with programming tips. Just as you wlll use some of those 
special memory locations [In this tutorlal, you wlll want to 
use others to do all kinds of fun things. 

Another of the special memory locations you will want - 
to use Is called RAMTOP. It holds the highest page number 
of free RAM available for your use. The system wil! not use 
memory above this number. If you lower the number then you 


will be able to use the RAM from the original number to the 
new number without fear of disturbing Its contents. For 


Instance, In a.48K system, us|{ng ATARI BASIC and OPERATING 
SYSTEM, the RAMTOP fs 160. | 


Consider the following program: 


1000 OLDCA=PEEK(756) *256 

1010 TM=PEEK(106) 

1020 CB=TM-4:CA=CB*256 

1030 POKE TM,CB-1 

1040 REM __move CHARSET to RAM 
1050 FOR I=0 TO 1023 

1060 POKE I+CA,PEEK(I+0LDCA) 
1070 NEXT | 

1080 REM __ Point to new CHARSET 
1090 POKE 756,CB © 


NOTE OLDCA Its the ROM address of the SYSTEM character set. 
™T™ represents TOP OF MEMORY. 
Remember, BASE 0. 
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SHOW CHAR 


We have determined that Top of Memory (TM) was a certain 
number of pages in IIine 1010. We know that the character 
set requires 1024 BYTES of RAM. 1024 bytes Is 4 pages 
(1024/256) so we subtract 4 pages from the original TM In 
line 1020. Now we want to protect those 4 pages of RAM so 
the system will not Invade and alter the Informattion 
residing there. Notice that we are changing the RAMTOP 
register to Indicate our new Character Base (CB) less one 
page. Instead of locking out Just the 4 pages we needed for 
the new character set we have secured an extra page. CB-1 
Is the same as TM-5. There Is a very good reason we want to 
do this. We Iled! Well, sort of, you see, RAMTOP doesn't 
quite protect ALL the RAM above It. 


IMPORTANT 


ANYTIME A CLEAR SCREEN UN) EXECUTED IN GRAPHICS MODE 0 
THE FIRST 64 BYTES OF RAM, ABOVE RAMTOP, ARE CLEARED! 


That means, anytime you make a GRAPHICS call, which 
also causes the CLEAR SCREEN function to take place, you'll 
go quietly [Insane trying to flgure out where the first 8 
characters of your character set disappeared to. (The 
author almost went bald from tearing his haltr out until, 
through deep digging, discovered this aberration!) So, the 
extra 256 bytes (one page) Its there to allow the clear 
screen to work properly. 


to know, | know.... you want to know why this was 


allowed to happen. I! always want to know why seemingly. 
STUPID detafls |ike this go overlooked, especially, 
un-reported! Well, ! can only make an educated guess. When 


a GRAPHICS statement [Is executed the RAM for screen memory 
Is reserved. This memory Is referenced from RAMTOP down. 
CLEAR SCREEN seems to work In pages only and therefore 
clears a whole 1024 bytes, and, as we already know, the 
GRAPHICS 0 screen Is only 960 BYTES. The 64 BYTES left over 
are just matter-of-factly wiped out. Oh well, nobody's 
perfect! ; 


ay Wy a 


SHOW CHAR 


This simple code will copy the entire character set 
from ROM to RAM and secure It. The FOR/NEXT loop Is slow 
and annoyIng. We provide you with a simple assembly 
language routine to help you move memory around. It can be 
found between IInes 2000 and 4000 of the CHARACTER EDITOR 
program. You are free to "BREAK" this program and LIST that 
portion of the code Into a separate LIST file for your own 
use. 


NOTE 
Re-boot the system before going on as the 
CHARACTER EDITOR’ performs a great deal of memory 
management which must be reset for continued use 
of BASIC. Another approach would be to type In 
CONT, after listing the assembly routine to a LIST 
fille, then terminate the CHARACTER EDITOR 


normally. Refer to the BASIC manual on LISTING 
and ENTERING files. | 


The routine Is called MOVMEM and Is held In the string 
MM$. -The format of the assembly routine Is: 


' X=USR(ADR(MM$),FROM,TO,BYTES) 


where ADR(MM$) Is the address of the assembly routine. 
FROM {ts the address‘ from which memory Is to be moved. 
TO fs the address to which the memory Is to be moved. 
BYTES Is the number of BYTES to be moved. 
NOTE 


MOVE is the same as COPY sInce no attempt Is 
made to erase the original memory. 


nay i, ae 


In the prevlous example you would 


SHOW CHAR 


To use this routine 
replace I nes 1050 through 1070 with: 


X=USR(ADR(MM$) , OLDCA,CA, 1024) 


In fact, 


character sets 


Instantaneous. 


appear to be 


The results wil 


If you wanted to swit 
quickly, there are two techniques you can use: 


ch between several 


ppropriate font. 


Inefficent as you have to keep many character sets 
and then of course the 


This much waste deserves a 


lots of valuable space! First In a string 
Into RAM, 


You can simply load several character fonts Into RAM and 


oO 
0) 
ang 
= 
O 
en 
a 
i) 
f= 
= 
(oe) e 
a. — 
iu @ 
Y 
< + 
a 
 -_ 
a ® 
ta - = 
= an <= 
© 39cm 
< © 
a Ow. 
< c+ — 
pa cum 
© w & @® 
370 0 
@ = © 
<= ~~ a. 
+~ Xj 2 Ww 
no— 
O Ooo 
- nN E— 3 
a oe ae | Oe © 
—- Nr — > 0 


better way which Is ..... 


U+w >~+ st 
M9 DWH & ON 
ee eee 
CL oF 
UM, E+ 
te a 
oo YU To ® 
oor ove 
OrO + re 
on0<XH Oo 0 O 
scf& @MoOO 
OoO<xm - & 
c x08 © 
MLO & ea 
—o3 a Oy 
O @ 6 
~~ > = @ 
= O 
-_ c+) 
Pe ee 
E>» o~ 
@ O jc a 
noe” os. 
Ww ee © > 
o—- Sf > — 
— & Cw 
c— oO: 
—-=F=Sz+ 
~ar Oo 
o+ cr — 
PS OS a ES 
OF g-~ ct 
cS ‘oun ®) 
— "~~ ay- @® 
© 2 <x 
So Ss 
r 4 _— 
tu Rt oO 
O_ V_ UH 
e >, 395 
—! Y @ 
_ © » aaa Oo 
S>"9e UV. @ 
Oo — 04 
| on ome Gee) 
ee — © 0 
© w) UO + 
e -.&@®D WW, 
OF vu >v 
w ll hk & 
Se E2o 
> 0— HF 
“OX 0O00 
NS ee O& kL me 


Into the reserved area. 


‘bytes of data 


a) a 


PROTO 


Now [It will all start to come together. All of the 
basics have been demonstrated, so let's put together an 
animated Proto. Here Is a simple flow chart of how to move 
Proto around on the screen. ae 


” 
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PROTO 


The actual code [Is only slightly more complicated. First 
an assembly language routine, TDELAY.OBJ, to act as a time 
delay. This could also be done In FOR=NEXT loops, but that 
would not be as accurate: 


Ny 
a 
@ 
@ 


—ASSeEemblY routines 


NNN 
Gage 
G1 Be Gl A) 
Maferfon fo fo 


Next, an assembly routine, 
given. area In memory with any character of your cholce. This 


Is VERY valuable. You can fill up a memory area with blanks 
to act as a CLEAR routine. You can also use It to flll solld 
areas with any character you desire. 

2960 REM 

26070 DIM FMS (543) :REM _Db: FILME 

2980 FMS C13 ="hhrs_braghhag lh ? 

2890 FMS (24) =F | 20 “ie is oh 

21680 FHS C463 —''4 fo’ Ea 


MOVMEM.OBJ Is a way for you to move your character sets 
quickly from thelr storage place In a string to the area you 
will pofnt to with location 756. This Is explaltned more In 
the section, MOVMEM, Included with the EDITOR part of. this. 


Now | hold the shapes of three different characters In 
like this: 4 : 


i 
of memory by m 


ie) 
< 
po ] 
©} 
pe) 
> 
= 
+ 
oO 
me) 


NCA->CAtTZA 
Pp 


The graphics mode Is stored In the varlable G which Is 
Inittally set to zero. Lines 4070 - 4080 actually Install 
our modiffed character set [n memory. In tine 4090 a 
graphics call fs made, a color register Is set, the cursor 
Is POKEd off, and the screen Is POKEd back on. 
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4670 H=-USRCADRCMNS) , 2248%256,CA,10233 
405860 H-USRCADR CMMS) ,ADRCBSS3 ,NCA, 243 
46790 GRAPHICS G:sSETCOLOR 2,9,9 

4110 POKE 752,.1:POKE 559,734 


Lines 4130 = 4200 print the Instructions on the screen. 
Line 4210 points to our character base (CB). Line 4220 sets 
the rows and columns to zero. 


4130 IF G=6@ THEN POSITION 2.26 

41460 7 °° C€G1 GRAPHICS 6G C21 GRA 
PHICS 2" 

4156 7°" £11 GRAPHICS 4 cai auT 
Bag : 

4160 7" 

(omg! 5 

41760 7 Ett 

4160 IF G=i THEN 7? 

41990 IF G=2 THEM 7 "PPh; 

4260 7 "ths: 

4219 POKE 756,C5 

4220 CM=6:RM=8:C=CM: R=RM 


In IInes 4230 - 4260, the rows and columns are adjusted 
to the various graphics modes. Line 4270 stores the value 
of the last key pressed [n the variable K. The POKE of 764 
clears that location for the next reading. | | 


4230 IF G=-@G@ THEN CHI=39:RNH-19 
42460 IF Gr-1 THEM CHr=1L9:RHT-1LF 
425090 IF G-=2 THEW CHr=1i3:RH=S 
42660 C-INT CCHS 23 : R=LAHT CRHA ZS 
4279 K-PEEM C7643 :POKXE 764,255 


Line 4270 is the beginning of our loop. As our 
flowchart shows, depending on the value for K, the program 
sets the graphics mode In the variable G. If K = 47 (which 
Is the Internal key code for the letter Q) then the program 
branches to |Ine 4550 to end the program. 


4260 IF K>=255 THEN ATTA 
423960 IF K-50 THEN G=68:GOTO 469969 
43609 IF K=231 THEN G=1:GOTO 40°79 
45310 EF K-38 THEN G=2:GO0OTO 46°30 
4320 EF K=47 THEN 4550 


At line 4330, the Joystick Its read. Depending on 
whether the stick [Is polnted up or down or sideways, the 
rows and columns are [ncremented or decremented. 
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433090 S=STICK CG@3 :IF S$=-15 THEN 44°76 
4340 POSITION C,R:37 HEs"* "5 

43560 IF S-i4 THEN R=R-L 

423680 IF S=-13 THEN R=-RtL 

43790 IF S=11 THEN C=cC-2 

43860 IF s=7? THEN Cr=Ct1 3 

43°9°O°O IF S=S THEN C=-Ct1L: R=R-1L 
44060090 IF S=S THEN Cr=Ct+1:R=-RtL 
(4410 IF S=9 THEN CrH=C-i:R=Rt*L 
4420 IF s=1906 THEN C=-C-1i:R=-R-1L 


Lines 4430 - 4460 make sure Proto has not walked off the 
screen! Lines 4470 - 4520 print Proto In three different 
positions on the screen. Note how the assembly language 
walt routine Is used to hold the three Images on the screen 
for a while. 


443090 IF CCH THEN C=CH 

4449 ZF c*scm THEN C=CM 

44590 IF RORN THEN R=RE 

44660 IF R 

447090 POSITION C.,R 

4460 7 86st’: sHOUSR CADRCWTS3? , 2093 
44°9°0O POSITION C,R | = 

4560 7 86:°S'§:s :KOUSR CADRCHTS3 , 2093 
45160 POSITIO c,R .. | 34 fee ? 
452720 7 HE: "'*" :s ¢-HOUSR CADRCWHTS) , 2605 


Line 4530 takes us back to the beginning of our loop to 
read the Joystick, check and see If the graphics mode has 
been changed, or If someone Is pressing the Q key to end 


this program. If {ft Is pressed, IIne 4320 will take us to 
the end of Job routine. Line 4550 restores the original -top 
of memory In location 106. A GRAPHICS 0 call Is made In 


line 4560, and the next program Is RUN In line 4570. 


4530 GOTO 4276 

4549 REM ALL DONE 

4550 POKE 166, TM: POKE 52245,0 
45690 GRAPHICS @6@ 

457060 RUN ‘“'D:GARDEN" 

4580 LIST 4570:END 


AT 


PROTO'S GARDEN 
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WHAT 1S IT? 


| promised you a complete application of character 
graphics, so here [It Is. Refer back to previous pages to 
find complete discussions of each topic within the code. 


HOW TO PLAY 


The object to ralsing any garden Is to get the greatest 
growth possible from the plants. That Is the object of this 
game as well. 


When you RUN Proto's Garden you will see: PROTO standing 
In a fenced In garden where 5 rows .of seedlings have been 
planted. PROTO can be moved vertically In each row and 
horizontally at the top and-bottom of the rows. We don't 
want him stepping on any of the plants. On the left side of 
the garden {ts a water reservoir and In the lower right hand 
corner are two plles of menure, um, perhaps "fertitizer" 
would be a better word. 
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PROTO'S GARDEN 


Each time you push the button. on your joystick, PROTO 


will squirt some water and that causes the water In the 
reservoir to go down. The game Is over when all the water 
Is gone from the reservoir. When PROTO Is standing In front 
Of a plant and squirts water, the plant will grow. If, on 


the other hand, PROTO Is not In front of a plant, the water 
Is wasted. Each plant has sIx stages of growth, from 
seedling to maturity. There Is not enough water In the 
reservoir to squirt each plant six times. 


A 
GAXGv 
(CAN SV 


erapyysly 


There are several things that affect PROTO's garden. 
These faciors are "set up" differently each time the game ts 
Started. First of all, each plant [ts given a "rate of 
growth". Normally, a plant will grow one stage each time It 
gets a squirt of water. However, some plants have a higher 
growth rate. They may grow two, three, four, or even five 
stages at a time with each squirt of water. The growth rate 
for a plant does not change In any one game. The second 
Important factor Is called the Inittal stage of growth. 
That means, when the plant receives that first squirt of 
water It will "jump" to some random stage of growth from one 
to six. After that, the plant will grow at Its own 
particular growth rate.. You never know which stage of 
growth a plant will sprout to or how fast [t wil! grow then. 
That provides strategy to the game. 
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PROTO'S GARDEN 


Furthermore, PROTO can spread some "fertilizer" to 
enhance the growth of any row of plants. To spread the 
fertilizer, just position PROTO next to a pile and push the 
button on the joystick. A shovel will appear and the next 
time you push the button on the Joystick PROTO will throw 
the pile of fertiftizer in the row he Is positioned at. The 
fertilized plants In that row are guaranteed to grow at a 
rate of three stages each time they recelve a squirt of 
“water. This adds to the strategy of playing the game. It 
would be wise to know how a row of plants Is going to grow 
before matter of factly spreading fertilizer on tt. You 
only have two plles of fertil!tzer available. 


Just to make life a little more Interesting, a gopher 
will appear at the conclusion of the game and eat one of the 
plants. You cannot predict which one the gopher will eat. 
Each plant Is worth one point per stage of growfTh. if the 
gopher eats a fully matured plant you will lose six points. 
Your final score is tallied In bushels. A bushel represents 
ten points. 


The game can be terminated at any time by pushing the 
~~ "Q" key on the ATARI computer. Otherwise, [It will repeat 
Itself after displaying the score. 


YOU CAN ADD STRATEGY 


You can enhance the strategy of this game by making 
some of your own programming additions.- One [dea might be 
to allow: the gopher to come up and eat plants during the 
play time. Then PROTO would have to re-water the plant to 
make It grow again. Maybe the gopher could pause before 
eating to give the player a chance to move PROTO to the 
gopher and clobber him or yell at him and scare him away 
before he eats the plant. Perhaps just screaming at him 
‘from anywhere [In the garden would scare him away. Or If 
PROTO could get to the gopher before he ate the whole plant, 
and clobber him with the shovel, the gopher would be gone 
for good! 


Birds could be added to eat seedlings. Rain could come 
and water the plants. Some rain would be good but too much 
rain will cause them to lose growth. How about Insect 
Invastons. Looks Ifike PROTO would need [nsecticide! Maybe 
you could allow PROTO to move horizontally from any 
position. If you tried to move him across a plant It would 
lose growth from being stepped on. More sunshine, better 
growth.... ail kinds of possibIilifties! 
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PROTO'S GARDEN 


HOW DOES IT WORK? 


The best approach to seeing how this program works Is 
to analyze the code from top to bottom. While this tutorlal 
Is designed to teach character graphics we would be remiss 
In neglecting to discuss this program In Its entirety. The 
Intent here is to teach technique as well as content. 


Use the complete program IIsting provided In the 
appendix or generate one of your own. Lines 2000 - 3999 are 
reserved for string variables, Imbedded assembly code and 
character sets. Listing these I|Ines to your printer may 
cause grief as many of the "special" characters found In 
such strings are recognized as control characters by most 
printers. | recommend you IIst only Iines 4000-9999 to your 
printer. 


1000 PROGRAM HEADER 


1110 


These IInes contain the usual’ program Information such 
as title, author, and program content. It's a good [dea fo 
have this Information In front of all your programs. 


NNNNNNNANNNANN 
PR OOGOooOooo 
NPOWSNAG RUNS O 
QSSagcsdgoseaggag 
OUIIIOOIELIAD 
AMAT SSMS 4Hmm 
STMT Z MIT 


43 :<REM -_ GARDEN .FNT 


These assembly routines have been placed In strings so 
they may be easily used. | 


Lines 2020 - 2060 contains the assembly routine TDELAY 
which Is a walt routine. Look at line 4560 to see how It Is 
applied. The assembly routine MOVMEM starting at IIne 2070 
Is explained In the CHARACTER EDITOR section of this manual. 
Finally, and most Important to this tutortal, [fs the 
modified character set stored in the string variable CF$ and 
defined starting at line 2120. 


These statements set up space In memory for these 
routines. 
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Lin 000-4060 are equ 


e to define the 
following varfables: : 


G$ = Incarnations of the gopher 

P$ = Incarnations of PROTO walking 

R$ = Characters to adjust reservoir 

T$ = Incarnations of a Tree growling 

W$ = Water squirts 

G = Matrix for first stage of growth 

L = Matrix holding current stage of growth (each 

element Is added to get the total score) 

M = Matrix used for rate of growth multipliers. 
4970 ACB=PEEK C7563 | 
46860 TMIPEEK C166) :CB=TM-—4: CA=CB*256 
46990 POKE 166,CB-1:GRAPHICS 2416 


4070 - 4090 are for memory management and are used to 
secure a "safe" place In memory to hold the alternate 
character set. Line 4070 stores the address of the ATARI 
CHARACTER BASE. TM In [Ine .4080 stands for Top of Memory. 
To reserve safe memory for our special character set, we 
lock out four "pages" of memory by subtracting 4 from TM. 
We subtract an extra page for safety and POKE our new top of 
RAM IIimit Into 106. To find the exact address where the 
character set Is stored In memory, we multiply the value by 
256 (256 bytes = one page of memory). e. 4100 - moves 
the character set CF$, which Is the garden LOMAS "safe" 
RAM. 


410600 H=USR-CADRCMMS , ADR CCF S3, CA, 1LTLeZzays 
431090 Cra: Fr-O8 :SR-3:T=8: 

41260 REM — Set up Saadou” growths 

4130 FOR IT-1i TO 35 

4140 Gera -~O:seecra—B@rsmsers=—1 

4150 J-LIAT CRAND CO3 +103 

4166 EF J<3S THEN MC36—-ZT3 —I+1L 

43170 XF J7°5 THEN 2-9 

4100 Gers. 

41°90 NEXKT ££ 


4120 - 4190 randomly establishes the rate of growth and 
Initial growth values for each plant. Line 4150 gefs a 
random number and stores it In J. Lines 4160 and 4170 set 
up the multiplier for each plant to determine how fast It 
should grow. 4170 sets J to.zero If It's too big. 


4790 SETCOLOR ©,.0,16:S5ETCOLOR 1,68,4 
427219 SETCOLOR 2,6, 9:S5ETCOLOR 3,127,4 
42260 SETCOLOR 4,13,6 

4200 - 4220 set the color registers for this game. 
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int Screen 
-POKE 
a 5.6 ie 


On 
Re 4 
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4230 - 432 


© 


palnts the playfield. 


4340 - forces the [Internal code for the last key 
pressed to 255 meaning no key has been pressed, [Initializes 
column and row for positioning PROTO, and vectors, or 
transfers control, to line 4530 which will print PROTO. 
Note |ine 4550 checks to see If Proto has manure. 4560 
contains a good example of how to use the assembly language 
walt routine. 


43560 POKE 77,0: 5=STICK CG 

4360 IF PEEKC?7?643=47 THEN 72360 
43790 IF STRIGCS3I=98 THEN 4606 
43860 IF S5=15 THEN 425895 

43°90 REM clear old position 
42060 POSSI OM C.,R:7? BMGEs'* 8: 


4350 - stops the computer from rotating colors {ff no 
keys are pressed for a period of time, then reads the value 
of the joystick. | | 


4360 - 4380 determines whether or not the Joystick Is 


moved or the button Is pushed and vectors the code 
accordingly. 


4400 - clears out the last PROTO. It does not matter 
if he Is moved or not. It Simply says that we recognize the 
Joystick has been moved and we are just matter of factly 
going to wipe out the old Image before printing a new one. 
Who cares If he Is not going to move. It happens so fast It 
Is not noticed and we are not required -to check all the 
logic to determine If we need to clear the old Image or not. 


4410 IF C#R<>168 THEN 4450 
4420 IF F=1 THEN 7 eines 
4420 IF Fr2=2? THEN 7 #6 = **qyee 
4440 GOTO 44709 

4450 IF F THEM 7 6:7" © 


4410 - 4450 deals with the next space regarding the 


fertilizer. lf tine 4410 Ts true, ft means Proto ts 
standing In front of the manure piles. If Line 4420 ts true 
It means there Is no more manure. If IIne 4430 Is true, [t 


automatically reprints the manure. 
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4460 - 4510 checks the joystick movement to determine If 
we are going to add or subtract a row or column. 


4520 - 4580 moves PROTO to the new position and 
animates his legs and eye by printing each Incarnation held 
In the string P$. We are then vectored back to the 
beginning to check the Joystick for another movement. 


. 4590 =. 4680 simply. tosses the fertilizer If the 
joystick button was pushed and the "Ft" flag, which was set 
when he got a load of fertilizer was at some positive 
value. Again, note the use of the assembly walt routine [In 
line 4630. 
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4690 RE fFfertalkized multipliers 
4700 K= CINT CC/“ZI3I*NTI—-G 

4710 FoR I= TO HIG: METI=—=S: NENT XT 
472060 Fr-@:GOTO 4350 
4730 IF cCt<716 oR R410 THEN #4820 
4740 REM get fertalizer 

47°50 Fo=2 

47°60 LOCATE C+F,R,# 

4770 IF #H<3>161 AND H<°>169 THEM 48200 
47560Q Po0osiTimrow C+F,R:7 HHes** 88 
47°90 GOTO a&Sza 

4500 IF F=8 THEN 48206 

4510 F=F-1:GoToa 47°60 


46y¥u = 4730 determines, by column and row, which plant 
growth rate matrix values to Increase for the row that has 
just been fertilized. 


4740 - 4810 attaches a shovel of fertilizer to PROTO if 
he Is standing In front of a pile of fertilizer. Line 4760 
looks at the screen to see if there Is a pile of fertilizer 
there to retrieve, otherwlse, he squirts water and wastes 
it. 


4520 R 
46230 F 
45640 Pp 
46350 7 
4560 5 
4570 HK 
425580 WM 


4820 ~ 488u Is the routine to print each Incarnation of 
the water "squirt". As in all motion orflented character 
graphics printing there Is a time delay between each PRINT 
so the Image Is recognized by the viewer. Line 4860 
provides for a sound effect as the water Is squirted. 


45890 REM ——ad just resevoir 

4°06 V=V-1°:AS>16-EINT CUS EI !POSITIOM a 
47190 BoS~- CVr s—InNT Cus a3 ys 

4920 IF INTCV’S3=—Urs THEN = 

4970 7 BM6e;RESt*B,B3:Ir V=6 THEN S650 


4890 - 4950 assumes we sprinkled water and must: now 
adjust the reservoir. The variable V holds the maximum 
amount of water In the reservoir which was Initfialized to 72 
In line 4110. 
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49480 REM __set plant growth matrix 
43959 IF R=2 OR R=16 THEN 42359 
; 4960 POSITION C+2,R 
4970 Mo C€CCC-13 433-13 %73+4+R-2 
4980 IF LCCnd=6 THEN 42506 
4990 IF GtCnN3=9 THEN SOLO 
Seo0@ L{N3 —GCN) !:GCN3=9 
SQOi1@ LCN =LCNI+MCHM3 
S926 IF LCN)>6& THEN LCNI=56 
Seos0 REM make plant grow 
Seag 7 6; 1S CL CN3,.L CM? 3 
SaS0 H-USR CADRCNTS3 , 103 
S860Q@ GOTO 4356 


4940 - 5060 assumes we squirted water and In IItne 4950, 
checks to see If the position of PROTO ifs next to a plant. 
lf he Is then the growth matrix Is examined for maximum 
growth. If It ts already set to 6 (max) then we Ignore the 
rest of the code. Next (4990) we see if the plant has ever 
grown. After the initial growth of a plant we set the 
growth matrix (G) to 9. Otherwise we jump to an Initial 
rate of growth and set G to 9. If It Is already 9 then we 
assume normal growth and vector to 5010 where we look at the 
growth rate matrix (M) and print the appropriate Incarnation 
of the tree, set the matrix (L) for the current growth, and 
go back for more user I[npuf. 
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5070 - 5200 Is vectored to test If the reservoir water 
Is ZERO (line 4930) and selects a random column and row for 


the gopher to come up and eat a plant. It Is necessary to 
"un-grow" the plant as the gopher eats it. He'll chomp 6 
times, which Ils enough to cut down a full grown plant, but 


if the plant Is only 3 stages tall, his first 3 chomps will 


not affect the plant. 
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5210 REM __compute 
S220 FOR T=i TO =5: 
S230 REM __ score sc 
5246 GRAPHICS 24:16 
S258 POSITION 1,5:7 
5260 ? #6; INT CT/“10) 
S27Q@ H=USR CADR CNTS) 
S280 7? #6;:"R"': GoTo 
5290 REM "ati done 
S360 POKE 764,255:P 
S31G@ RUN “D:cHAREDI 


9210 = 5280 determines the final score and prints It to 
the screen. 


5290 -- 5310 terminates the program If the user presses 
the "Q" key on the keyboard (line 4360). Line 5300 returns 
the top of memory to normal by POKEIng location 106 with the 
value we saved [In line 4080. This Is neccessary to RUN 
‘future programs. . 


x) 38 


PROTO'S GARDEN 


COLOR REGISTERS IN GRAPHICS MODES 1 & 2 


| shall describe what color registers are used and how 
they are used In graphics modes 1 and 2. There are 5 
possible colors In graphics modes 1 and 2. One Is for the 
background color and the other four are for regular colors. 
In viewIng PROTO'S GARDEN, you'll! note that there are never 
more than five colors on the screen at one time, Including 
the background color. 


In these two graphics modes, there are four 
possibilities for types of characters to be printed on the 
screen. These are regular upper-case letters, regular lower 
case letters, upper-case Inverse video letters, and 
lower-case Inverse video characters. 


To set the colors, use the SETCOLOR BASIC command. The 
SETCOLOR command uses the following format: 


sereuEor color register,hue, luminance 


where the Saree register Is a value of 0 through 4 for the 
five color registers, hue |S a number O through 15 which 
stands for the various colors avallable to be printed, and 
the luminance parameter I[s any even number from zero to 14 
with 14 being almost pure white. 


Below Is a chart showing which registers use which 
types of characters to print their distinctive color: 


SE.0 UPPERCASE LETTERS 


SE.1 lowercase letters 
SE.2 UPPERCASE INVERSE VIDEO LETTERS 
SE.3 lowercase Inverse video letters 
SE.4 Background Color 


COLOR REGISTERS for GRAPHICS 1 and 2 


So tnat Its how we have blue for the water and white for 
the fence In PROTOTYPE'S GARDEN. Whenever you [Install your 
character set and want to print [t In a specific color, 
simply use upper or lower case letters using: or not using 
Inverse video to get your character to be the particular 
color you desire. 
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INTRODUCTION 


The CHARACTER EDITOR program Is named "CHAREDIT.UTL" 
and Is run from BASIC. This utftlity {ts designed to allow. 
you to create your own character fonts and save them. The 
CHARACTER EDITOR has a very nice feature called ANIMATE 
which: allows you to construct animation incarnations and 
observe thelr animation on the screen at different speeds. 
You may also construct composite graphics characters In the 
BUILD mode. This utility uses extensive assembly language 
routines for the purpose of speed and you are encouraged to 
explore the use of assembly language USR CALLS for your own 
applications. They are easy to use from BASIC without 
knowing how they were written. 


SCREEN DESCRIPTION 


Once "CHAREDIT.UTL" Is up and running you should become 
fami lttar with the screen layout. There are five separate 
major areas. They are; | 


- BIT MATRIX 

- CHARACTER IMAGE DISPLAY 
~ MENU 

- CHARACTER SET DISPLAY 

- USER INPUT PROMPT AREA 
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BIT MATRIX 


This ts a grid of 64 rectangles, each representing a 
single BIT. Each of the 8 rows of 8 BITS represents a 
single BYTE. They are stacked from top to bottom as they 
occur sequentially In the character set for each character. 
This ts the malin work area for editing, antmating, or 


building composite characters. A composIité character Is 
explained later... 


CHARACTER IMAGE DISPLAY 


There are three parts to the CHARACTER IMAGE DISPLAY 
located to the right of the BIT MATRIX, In the upper half of 
the screen. These areas each contain a single 
representation of the character you are working on. They 
are In different colors for the sake of clarity and no other 
significance Is attached to the color. The first area 
represents how the character will look In GRAPHICS mode zero 
(0). The area to the right of that represents GRAPHICS 1 and 
below them is GRAPHICS 2. 


Since the figures representing GRAPHICS 1 and 2 occur 
on the same lines, you may have guessed that they are 
player-missiles and not actual graphics mode 1 and 2 
characters. Bear [In mind, the proportions will change 
slightly when you do use your altered character set In 
graphics modes 1 and 2. 


MENU 
This area contains the ten (10) major categories of 


operational functions you may perform using the CHARACTER 
EDITOR. As soon as any of the functions are Invoked, that 


menu cholce wil! be blocked [In a blue stripe. This allows 
you to recall what you were doing when you return To the 
editor after some diversion. Each MENU choice will be 
discussed In detall In a later section. 


EVERY EFFORT WAS MADE TO USE MENU FUNCTIONS UTILIZING THE 
FIRST LETTER OF THE DESIRED FUNCTION AS A COMMAND FOR EASY 
MEMORIZATION BY ASSOCIATION. 


CHARACTER SET DISPLAY | 
The entire font you are working with Is found [In this 


display area. When you want to "GET" or "PUT" a character 
the cursor Is placed In this area for you to locate the 


| ae 
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desired character using the cursor controls. You may notice 
that ONLY 126 CHARACTERS ARE AVAILABLE FOR EDITING fn the 
CHARACTER SET DISPLAY. That Is because you are excluded 
from editing the BACK SPACE or DELETE characters as they are 
specially modifled for use In the BIT MATRIX display area. 


USER INPUT PROMPT AREA 


The elongated rectangular area In the bottom left 
portion of the screen Is used for error messages and user 
input to specific prompts. For Instance, This Is the area 
you will use to enter the filename of a FONT that you want 
to LOAD or SAVE. 


CHARACTER EDITOR OPERATION 


MANY OF THESE MENU FUNCTIONS ARE BEST ILLUSTRATED THROUGH 
DEMONSTRATION. WE HAVE PROVIDED YOU A FONT FOR THIS PURPOSE 
CALLED "GARDEN". SEE "LOAD" FOR INSTRUCTIONS IN LOADING 
THIS FONT FOR USE IN LEARNING HOW TO USE THE CHARACTER 
EDITOR. 


CURSOR 


The CURSOR function on the MENU Indicates ANY action 
that manipulates the BIT MATRIX or uses the CURSOR controls 
while editing a character [n the BIT MATRIX. There are sIx 
major CURSOR functions available: 


- MOVE CURSOR 

- WRITE CURSOR 

- HOME CURSOR 

« SHIFT MATRIX 

- BYTE NUMBERS ON/OFF 
- CURSOR ON/OFF 


MOVE CURSOR 


Anytime one of the four keys that have CURSOR ARROWS on 
them Is depressed the cursor will move accordingly [In the 
BIT MATRIX. If the cursor Is at its boundary limit [It will 
wrap around to the opposite boundary. No other action Is 
taken other than moving the cursor to a new BIT SQUARE. 


WRITE CURSOR 


Holding down the CTRL (control) key while depressing 
one of the four keys that have CURSOR ARROWS on them wil! 
cause the cursor to TOGGLE (between ON and OFF) the BIT 
SQUARE it Is In and then move [In the appropriate direction. 
Movement follows the same rules as MOVE CURSOR and no action 
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Is taken In the destination BIT SQUARE. For Instance, If 
the cursor were sitting In a BIT SQUARE that was turned "ON" 
and we wanted to erase that BIT then we need only hold down 
‘the CTRL key and move the cursor out of that square. The 
WRITE CURSOR mode replaces the value of a BIT SQUARE with 
the opposite value as [It moves from that BIT SQUARE. 
Remember that a bit value of O=off and 1=0ON. The result of 
"WRITING" will be observed In the CHARACTER IMAGE DISPLAY 


areas as well as In the character position In. the CHARACTER 
SET DISPLAY AREA. | 


HOME CURSOR 


Pressing the "H" key will place the cursor in the upper 
left corner of the BIT MATRIX. This position [ts commonly 
called "HOME" and that Is why the "H" key [s used. Holding 
down the CTRL key and pressing the "H" key wil! place the 
cursor [In the lower right corner of the BIT MATRIX. 


SHIFT MATRIX 


Holding the SHIFT key down while pressing one of the 
four keys with CURSOR ARROWS on them will cause the entire. 
contents of the BIT MATRIX to SHIFT one BIT ROW [In the 
direction Indicated on the cursor key. The SHIFT key Is 
used In conjunction with the cursor keys because that Is 
what you want to do, SHIFT the BIT MATRIX. 


BYTE NUMBERS ON/OFF 


You may want to see the value for éach of the BYTES 
that make the BIT MATRIX. These NUMBERS may be turned on by 
pressing the "N" key. They will change as you WRITE 
different values In the BYTE that the cursor Is positioned 
on. If you do not want to see these NUMBERS then turn them 
off by holding down the CTRL key while pressing "N". The 
CHARACTER EDITOR Is I[nitialized with these numbers turned 
off. 


CURSOR ON/OFF 


The cursor Itself must be distinctly vistble for your 
use [n editing a character. You may find it distracting to 
observe the BIT MATRIX pattern you have created while the 
cursor Is glaring at you. Hitting the SPACE BAR will make 
the cursor turn off for unobstructed viewing of the BIT 
MATRIX. Hitting the SPACE BAR again, or ANY OTHER CURSOR 
FUNCTION, will make the cursor visible. 
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ANIMATE 


The ANIMATE function of the CHARACTER EDITOR Is very 
unique and not found on any other character editor we know 
of. It actually allows you to witness the animation of a 
serles of character Incarnations, both Instde the BIT MATRIX 
and In each of the CHARACTER IMAGE DISPLAYS. Pressing the 
"A" key will Invoke the ANIMATION feature. You will be 
prompted to enter the characters you wish to observe In 
sequence. Once the characters are entered and you push 
RETURN they wlll begin to animate. You will notice that 
there Is a menu prompt In the USER INPUT PROMPT AREA area 
that says: SLOW FAST QUIT. Entering the first letter of 
any of these choices will cause the animation to Slow down, 
gO Faster, or Quit. Depending on the speed at which the 
animation Is running and the amount of Incarnations entered, 
there may be a delay before your request is acted upon. 
Nothing will happen until one entire sequence [s finished. 
As the speed reaches [Its l[IimIits, that menu choltce will 
disappear from the screen. 


Using the "GARDEN" font, invoke ANIMATE and enter "#$%" 
and you will see PROTO stomp around. The only difficulty In 
using ANIMATE Is remembering which characters to enter as 
Incarnations since ‘they can no longer be recognized as 
standard characters. Remember, you have just spent your 
valuable time creating all kinds of fancy shapes that look 
nothing |ike the keyboard. We recommend you keep a cross 
reference or create your incarnations bracketed between a 
couple of standard characters for ease of Identification. 


It you should Invoke ANIMATE by pressing the "A" key 
and decide you-do not want to use It, just push RETURN. 


BUILD 


BUILD allows you to construct a composite character 
that requires more than one character for definition. You 
Invoke BUILD by pressing the "B" key. You will be prompted 
for the four (4) characters you wish to edit In order to 
bulld your composite. YOU MUST ENTER 4 CHARACTERS, 
although, you may use blanks for dummies If you only wanted 
to use two or three characters. After keying In your 4 
characters press RETURN. 
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The characters you enter will appear [n this order: 
1 2 
3. 4 


within the CHARACTER IMAGE DISPLAY box that represents 
GRAPHICS 2 mode (the largest characters) from left to right 
and top to bottom In the order you entered your cholces. 


The BIT MATRIX will hold the first character you entered as 
a starting point. In order to GET another of the characters 
to work with, enter a "G" for GET. You will be prompted for 


a character choice and only one of the four displayed 
characters will be permitted. To QUIT the BUILD mode just 
press the "Q" key for QUIT or ANY OTHER MENU FUNCTION. 
Please note that you may QUIT only after you’ have satisfied 
the Input requirement for four (4) characters and returned 
to the BIT MATRIX. 


CLEAR 


Pressing the "C" key for CLEAR simply clears the BIT 
MATRIX by setting all. BITS to zero .or “OFF", Whatever 
character [Is occupyIng the BIT MATRIX Its atso'completely 
cleared In the CHARACTER SET DISPLAY AREA. This fs a good 
way of clearing the work area If you are going to completely 
redefine a character and much of what [fs [In the present 
character Is not usable. It saves you from erasIing all 
those BITS you're not going to use. If you CLEARed an ATARI 
character you may restore It while In the GET or PUT modes. 
See GET or PUT. 


GET 


The GET command allows you to get a character from the 
CHARACTER SET DISPLAY AREA and put It In the BIT MATRIX for 
editing. You Invoke GET by pushing the "G" key. The cursor 
will appear [In the CHARACTER SET DISPLAY AREA and you can 
move It around using the four keys with CURSOR ARROWS on 
them. Once the cursor Is over the character you want, just 
push RETURN and that character will appear [fn the BIT 
MATRIX, ready for editing. The old position tn the 
CHARACTER SET DISPLAY AREA wil! be "remembered" and the 
cursor wil! return there upon the next GET or PUT operation. 
You may QUIT the GET function by pressing the "Q" key 

Characters may be restored to thelr original ATARI 
character while In this mode simply by placing the cursor 
over the desired character position and pressing the "R" key 
for RESTORE. 
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INIT 


Pushing the "I" key will Inittallze the CHARACTER 
EDITOR. It is like starting all over. For safety you will 
be prompted "INITIALIZE (Y/N)?",. ANY response other than "y" 
will return you to where you left off.. A "Y" RESPONSE WILL 
INITIALIZE THE CHARACTER EDITOR AND ANY PREVIOUS WORK WILL 
BE DESTROYED UNLESS IT WAS SAVED. Use this only If you have 
so hopelessly messed up the character set that It Is easter 
to start over than fix the current file being edited. 


LOAD 


Disk Users 


The LOAD function allows you to LOAD In a CHARACTER SET 
previously stored on tape or disk. When you press the "L" 
key you Invoke the LOAD function and are prompted "LOAD?". 
The response to the prompt should be a legal filename. 
Extensions to the filename are permitted although NOT 
recommended. The default extension [s ".FNT" and. will be 
appended to the filename automatically. The default drive 
Is "D:" and may be changed usIng standard filename 
protocols. 


NORMALLY ONLY THE BODY OF THE FILENAME NEED BE ENTERED. 
It must be 8 uppercase characters and must start with a 
letter of the alphabet (ie. entering the filename "MYFONTI"™ 
would be seen as "D:MYFONTI.FNT"). lf the requested 
fllename [ts not accessible (say due to a bad sector or the 
drive or the tape not belting plugged [n) then a "BAD 
FILENAME" error message wil! appear In the USER INPUT PROMPT 
AREA. You may exftt the LOAD function by pressing RETURN 
with nothing entered. 


Tape Users 


Tape users must type C:DUMMY where DUMMY Is any name (It 
[s Ignored but must be there for the LOAD to work). 
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PUT 


PUT Is Invoked by pressing the "P" key. Whenever you 
GET a character and edit It, It Is NOT necessary to PUT the 
altered character Into the same place In the character set. 
However, you may want to PUT the character Into another 
location without having to edit the character [In that new 
location. : 


Perhaps you are creating several Incarnations of a 
character to be animated and only a small part of each 
Incarnation must be re-drawn, leaving the body of each 
character the same. It could get tedious re-drawing each 
character In Its entirety. When you Invoke PUT you may move 
the cursor to any position In the CHARACTER SET DISPLAY 
AREA, using the four keys with CURSOR ARROWS on them, and 
push RETURN. This will PUT the character presently residing 
In the BIT MATRIX Into that position of the character set. 
The character [n the BIT MATRIX remains unchanged In the BIT 
MATRIX and you may PUT It as many times as you IIike. To 
QUIT the PUT mode Just’ press the "Q" key. 


You can RESTORE any character [In the CHARACTER SET 
DISPLAY AREA to Its original ATARI character while In the 
PUT mode by posItloning the cursor over the desired 
character and.pressing the "R" key for RESTORE. 


SAVE 


The SAVE function allows you to SAVE onto disk or tape 
the character set In the CHARACTER SET DISPLAY AREA. When 
you press the "S" key you [Invoke the SAVE function and are 
‘prompted "SAVE?". The response to the prompt should be a 
legal filename. Extensions to the fllename are permitted 
although NOT recommended.: The default extension [Is ".FNT" 
and will be appended to the filename automatically. The 
default drive Is "D:" and may be changed using standard 
filename protocols. 


NORMALLY ONLY THE BODY OF THE FILENAME NEED BE ENTERED. 
It must be 8 uppercase characters and must start with a 
letter of the alphabet (le. entering the filename "MYFONTI" 
would be seen as "D:MYFONTI.FNT"). lf the requested 
filename ts not legal or any error occurs (such as DISK 
FULL), then a "BAD FILENAME" error message will appear In 
the USER INPUT PROMPT AREA. You may exIt the SAVE function 
by pressing RETURN with nothing entered. 


Tape Users 


Tape users must type C:DUMMY where DUMMY Is any name 
(It Is Ignored, but must be there for the LOAD to work). 
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USING CHARACTER SETS 


“You have done a lot of planning and work to create a 
custom character set for your specla!l needs. Now you want 
to use It (how dare you!). You have this FONT stored [In 
FILENAME.FNT and now you want to get It Into your BASIC 
program. There are two ways to do it. They are by FILE 1/0 
or by RESIDENT CODE. | 


FILE 1/0 


FILE 1/0 simply means that you are golng to leave the 
character set In the FONT fille and "INPUT" [+t Into your 
program where It Is needed. The following code will load 
- your character set [nto RAM: 


2000 OPEN #1,4,0,"D:FILENAME.FNT" 
2010 FOR 1=0 TO 1023 

2020 GET #1,BYTE 

2030 POKE CA+I,BYTE 

2040 NEXT | 

2050 CLOSE #1 


where CA is the address for the character set. Again, 
cassette owners must use C: Instead of D:. This method Is. 
time consuming and If you have more than one character set 
to load It can get annoying. We provide you with an 
assembly language USER CALL routine that does It very 
quickly. This routine fs called CIOCTL and Its held In the 
string CC$ In the CHARACTER EDITOR which you may LIST. The 
following code Is an example of how to use CIOCTL: 


2000. OPEN #1,4,0,"D:FILENAME.FNT" 
2010 X=USR(ADR(CC$),1,7,CA,1024) 
2020 CLOSE #1 | 


Remember, cassette users must use C: Instead of D:. 
This Its time consuming and If you have more than one 
character set to load It can get annoyIng. We provide you 
with an assembly language USER CALL routine that does It 
very quickly. This routine [s called CIOCTL and is held [fn 
the string CC$ In the CHARACTER EDITOR which you may LIST. 
The following code Is an example of how to use CIOCTL: 


2000 OPEN #1,4,0,"D:FILENAME.FNT" 


2010 X=USR(ADR(CC$),1,7,CA,1024) 
2020 CLOSE #1 
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QUIT 


Pressing the "Q" key will cause the prompt "QUIT 
' (Y/N)2" to appear In the USER PROMPT AREA. Any response 
other than "Y" will return you to the editor where you left 
off. A "Y" response will restore you to BASIC. 


IRR 
DISASTER RECOVERY ass 


The scenarlo'‘is this: You are tired and have spent a 
lot of time changing several characters In your custom 
character set. Without thinking, you choose to QUIT the 
editor and the very Instant you push the "Y" key to QUIT you 
-Feallze you did NOT save your work! Before you commit some 
atrocity, be aware you CAN recover your work If you are very 
careful to follow these steps PRECISELY: 


Remember, you are now In BASIC. 

A. DO NOT TYPE IN "new" ) 

B. DO NOT LOAD ANOTHER BASIC PROGRAM 
C. DO NOT EXIT BASIC . 


Enter the following commands followed by RETURN 
CLOSE #1 


OPEN #1,8,0,"D:FILENAME.FNT" 
X=USR(ADR(CC$),1,11,CA,1024) 


WHAT DID I DO? 


The first statement Insured that channel #1 was CLOSEd. 
The next statement OPENed channel #1 to the filename of your 
cholce. Finally, the last statement invoked a USER CALL 
within the character editor that moved 1024 BYTES of memory, 
starting at memory location CA (character set address), to 
the filename. You may now RUN the CHARACTER EDITOR normally 
and LOAD that filename to continue your work. 
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CHARACTER EDITOR 


This routine can be used to quickly LOAD from or SAVE 
to files. 


X=USR(ADR(CCS$), in 1/0, ADR, 1" 


file channel #.. tae BYTES to transfer 
must match i 

number used to 

OPEN the file. 


LOAD(7) or SAVE(11). RAM address to LOAD or SAVE 


The only problem with this technique Is that extra I/0 
and support flles provide greater opportunity for problems. 
The major advantage Is memory conservation. If your program 
Is reaching your memory iImits then having the character 
sets stored on a separate file has value. 


RESIDENT CODE 


This means that the character set Is contalned within 
your program, elther In a DATA statement a STRING vartable. 


The following example represents having the character set [In 
‘DATA statements: 


2000 RESTORE 7000 

2010 FOR 1=0 to 1023 
2020 READ BYTE 

2030 POKE CA + I, BYTE 
2040 NEXT | 


7000 DATA 0,0,112,134,34,2,2,0,0,65,65 
7010 DATA (another 1013 numbers!) 


‘There are two major disadvantages to this technique. 
First, DATA statements consume a lot memory. Why use a 
number like 112 which takes up 3 BYTEs when a single BYTE 
the value 112 would do. A lower case "pnp" has the ATASCII 
value of 112. Secondly, It Is slow. If you used STRING 
variables to hold the data It would look like this: 


2000 DIM CS$(1024) 


2010 CS$="1024 ATASCII CHARACTERS REPRESENTING BYTE 
VALUE" 


2020 FOR !1=0 to 1023 

2030 BYTE=ASC(CS$(I+1,1+1) 
2040 POKE. CA+I!I,BYTE 

2050 NEXT | 
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CHARACTER EDITOR 


This Its more practical from a memory conservation point 
of view, but, it Is slow. Also, It requires some method by 
which the byte- values can be [Interpreted Into ATASCII 
characters. Well, OF COURSE! You didn't think we wouldn't 
provide you such a utility, did you? It fs called 
"LINKBAS.UTL", 


LINKBAS.UTL -- Disk Verston 


This UTILITY Is designed to translate the BYTE contents 
of any file Itnto BASIC STRING VARIABLES. This is useful for 
Implementing re-locatable assembly language routines, screen 
formats, or character sets [Into BASIC programs. The 
operation of this utility is simple: 


RUN "D:LINKBAS.UTL" from BASIC 


1. Answer the first prompt with the DESTINATION filename you 
want to contain the converted code. Filename extensions are 
not required, although advised. Pressing RETURN with 
nothing entered wil! default to "D:TEMP.LST". " LST" Is-ts 
the most obvious extender as the converted code that fs 
generated is a LIST fille which must be ENTERed Into a BASIC 
program to be used. ".ASY" might be used for converted 
ASSEMBLY routines. The default device "D:" may be changed 
by Including the new device specification In the fllename. 


2. The next prompt Is for a LINE NUMBER you want the 
converted code to begin with. Pushing RETURN with nothing 
entered will default to LINE 2000. Line numbers wil 
Increment by 10. 


3. The next prompt will request a SOURCE fllename and 
follows the same rules as the DESTINATION fllename, except 
there Is no default. However, there Is a default filename 
extender. Pressing RETURN with a filename that has a "." on 
the end of It will append the default extender ".OBU". ANY 
FILENAME WITH THE EXTENDER ".O0BU" IS ASSUMED TO BE ASSEMBLY 
LANGUAGE OBJECT CODE AND WILL IGNORE THE FIRST SIX BYTES OF 
THE SOURCE FILE because they are address vectors and should 
not be Included [In the string conversion. Entering the 
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CHARACTER EDITOR. 


filename "MYGAME.FNT" would put the re-defined character set 
found In the FONT fille MYGAME Into a string vartable. The 
last prompt requires a LEGAL STRING VARIABLE NAME up to 2 
characters to define the conversion. Here Is the format for 
answering the prompt: ; 


SOURCEF ILE/VAR<@> 


where the sourcefile must have a legal name with no spaces 
followed by a slash. You can change which drive you wish to 
use by attaching It to the front of the filename. The 
extent .OBJ will be appended to the filename. Following the 
first slash Is the variable name of your choosing. It Is 
highly. recommended that you only use up to 2 letters however 
this Is not required. The $ Is appended to the front of 
your variable automatically. : 


For Instance, you might use "MF" as the variable name 
for "MYGAME.FNT". The "MF" would stand for Mygame Font. 
The final <@> Is optional. Leave It off and you will be 
guided with prompts telling you to Insert your source disk 
and to Insert your destination disk. Leave It on and It 
will assume the source disk and the destination disk are the 
same disk. 


Finally, step 3 will be repeated until you respond to. 
the request for a SOURCE filename with nothing but RETURN. 
This means, for example, you may bulld a LIST file 
containing several assembly routines to be ENTERed [nto your 
mainiftne programming code at your convenltence. To end, 
simply press Q for Quit. © 


LINKBAS.UTL -- Cassette Version 


To use the LINKBAS.UTL cassette version, position the 
tape to the beginning of the program and type CLOAD followed 
by pressing RETURN. When the READY prompt appears, type RUN 
and press RETURN twice. No filenames are required. SImply 
position the source tape to read and position the 


destination tape to write. The only prompts you't!iI! need to 
answer are for the beginning I Ine number and the varible 
name you wisn to call your string. One JImitation of the 
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CHARACTER EDITOR 


cassette version Is the program will only work for one file 
at a time. To convert another file, the process must be 
repeated. If you wish to enter a number of these strings 
Into another progam, be sure to have your beginning line 
numbers staggered accordingly. 


MOVMEM © 


We provide you with a simple assembly language routine 
to help you move memory around. It can be found {fn the 
beginning of the character editor program with the other 
assembly language routines. You are free to "BREAK" this 
program and IIst that portion of the code [Into a separate 
LIST file for your own use. 


CAUTION: Re-boot the system before going on as the 
CHARACTER EDITOR performs a great deal of memory management 
which must be reset for continued use of BASIC. Another 
approach would be to type In CONT, after IIisting the 
assembly routine to a LIST fille, then terminate the 
CHARACTER EDITOR normally. Refer to the BASIC manual on 
LISTING and ENTERING files. | 


The routine ts called MOVMEM and [s held In the STRING 
VARIABLE MM$. The format of the assembly routine I[s: 


X=USR(ADR(MM$),FROM,TO,BYTES) 


wheres 
ADR(MM$) Is the address of the assembly routine. 
FROM Is the address from which memory Is to be moved. 


TO Is the address to which the memory Is to be moved. 


BYTES Is the number of BYTES to be moved. 


Your code might look IIke this: 


2000 REM CB=Character Base 
2010 CA=CB*256 
2020 X=USR(ADR(MM$),ADR(CS$),CA,1024) 
2030 REM __PolInt to new CHARSET 
2040 POKE 756,CB 2 


Line 2020 MOVED 1024 bytes of memory from the STRING 
VARIABLE CS$ found at address ADR(CS$) to the address CA, 
representing the address In RAM where a re-defined character 
set would reside. 
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SELECTED PROGRAM LISTINGS 
FOR THE CHARACTER GRAPHICS TUTORIAL 


The following listings contain most of the 
code used to produce this tutorftal. The listings 
are of the BASIC code only. To access the 
~ assembly code,. simply LIST the program you desire 
to the screen to observe the special characters 
and symbols used to represent the assembly code. 
None of the code Is protected, so you may use any 
part of any of the examples [In your own programs. 
Bear In mind, you may need a special graphics 
utility to LIST the assembly code to your printer. 
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1S 
1916 
1928 
1438 
1849 
19350 
1169 
1976 
1989 
1899 
1188 
1119 
1129 
1126 
1149 
1159 
1168 
1176 
118@ 
1198 

208 
1216 


1226 


26e 
2070 

e@ 
2118 
2120 

e 

e@ 

J 
2298 
2500 

e 
i e 

2168 
2170 

e 

e 
2218 
aa 
oye 

e 

weet = 1) 
25968 


2410 
2420 
oe 
eo 
@ 
2446) 
2450 


2470 
2486 


@ 
4900 
4gia 
4826 
4930 
4nag 
4950 
4M6a 


REM CGLOGO 
REM by Stan Gilbert 


REM Company logo for character 
REM graphics tutorial 


REM VERSION 1.8 
REM (C) JANUARY 17th, 1983 


REM 

TM=PEEK (196) :DONE=115@:GOTO 20080 
REM , 

REM __ALL DONE 

TRAP 1229 

POKE 1286, TMSGRAPHICS @ 

POKE 33248,9:POKE 53249,68 

POKE 33250.@:POKE S3251,8 

POKE SS252,8:POKE 55253.0 


POKE 33254, @:POKE S3255,6 


RUN "D: HORSE" 

? "N"ssLIST 1218: STOP 
REM 

REM __Assembly code 
REM 


DIM WT$(57)3REM __TDELAY. OBJ 


REM 
DIM FM$(54)5REM ,_ FILMEM. OBJ 


REM 
DIM MM$(49):REM __MOVMEM. OBJ 


REM 
DIM BS$(136):REM __BEASTS. OBJ 


REM 


DIM SP$(48):REM __SETPMS.OBJ 


REM 
DIM MP$(118)2REM __MOVPMS. OBJ 


REM 
DIM SM$(16):REM __ SCROLL. OBJ 


REM 
DIM VES(14) REM — VBELANE. ORT 


REM 
DIM V1#(11): REM _—_VBLNK1. OBJ 


REM 


DIM V@$(25)SREM __VBLNEG. ORJ 


REM 

REM __MAINLINE 

DIM M$(255) ,S% (255) 

TM=PEEK (186) 

PR=TM—4: PA=PRe256 

CB=PB-4: CA=CR#256 

DR=CB-4: DA=DB*254: VA=DA+512 
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POKE 106, DB-4:MA=(DB-4) #256 
GRAPHICS 2+16 
X2USR (ADR (SP$) , PB) 

D=PEEK (540) +PEEK (561) #256 
SETCOLOR 2,0,@:SETCOLOR 3,0,14 
COLOR 1 

X=2USR (ADR (FMS) . MA, , 4996) 

REM __INSTALL INCARNATIONS 
X=USR (ADR (MMS) , ADR (BS$) , FA, 125) 
REM __INSTALL ALT CHARSET 
X=USR (ADR (MMS) , 2244256, CA, 1923) 
M$= "Carr" 

X2USR (ADR (MM$) , ADR (M$) , 8+CA, 7) 
REM __INSTALL DISPLAY LIST 

FOR I=@ TO 21 

READ B 

IF I=4 OR I=5 THEN B=PEEK (D+I) 
IF I=18 THEN B=DB+1 

IF I=21 THEN B=DB 

POKE 1+DA,B 

NEXT I 

POKE 56@,@:POKE 561,DB 

REM __DRAW COMPANY NAME 

POKE 754.CB 

FOR I=1 TO 27 

IF 1<2@ THEN T=T+13 

IF 13219 THEN T#=T-13 

SOUND @,T.1@, 10 


|} SETCOLOR 1,1,8 


READ C,R:PLOT CR 
X=USR (ADR (WTS) , 4) 

NEXT I 

SETCOLOR @,7.,98:SETCOLOR 1,3,8 
REM __Finish company name 
SOUND 8,4,9,8 
X2#USR (ADR (WTS) , 8) 

POSITION 9,4:7 #63 "DUCATIONAL" 
T=80:DIST#=14@:GOSUB S428 
X=USR(ADR(WTS$) , 40) 

POSITION 9,8:7 #6: "OFTWARE inc” 
T=48; DIST=1@:GOSUR 5430 

REM __DROP THE "A" 

FOR R=4 TO 9 


POSITION 17,R:2?7 #63" " 
POSITION 17,R+1:? #43 "A" 
X=USR (ADR (WT$) , 4) 
NEXT R 

POSITION 17,R:7 #63" " 

REM Last "A" in scroll screen 
POKE (DB+1) #256+17,465-32 
T=1002DIST=12:GOSUB S428 
REM __SET UP FMS 

POKE 205,PB 

POKE 532564, 1 

POKE 623,4 

REM __ MOVE PROTO RIGHT 
VT=44a 

FOR HZ=56 TO 170 STEP & 
FOR BS=4 TO 2 

SOUND 4, BS¥10+2a0g-HZ,19,8 
X=USR (ADR (MPS) , a, BS, VT,HZ) 
X=USR (ADR (WTS) , 4) 

NEXT BS 

NEXT HZ 

X=USR (ADR (MPS) , 2,1, VT, HZ+1) 
SOUND ,9,8,9:SOUND 1,8,08,8 
X=USR (ADR (WTS) , 88) 

FORE 774,78 

REM __DROF PROTO’S F 


4768 
4776 
4788 
4796 
4800 
481g 
4826 
482g 
4940 
49856 
4860 
48708 
48a0 
489" 
49GB 
4916 
4926 
4936 
4940 
49356 
4935 
4960 
4970 
49380 
4996, 
SOS 


519. 


5B29 
par 2) 
3G4g 
59358 
Soe 
3976 
pel p=) 4) 
SUP 
5108 
511¢ 
be Oa!) 
S120 
31408 
SiSd 
316¢ 
S17a 
S18e 
5198 
52a 
S218 
S228 
Gao 

3248 
S2ue 
S259 
5278 
3208 
52 R 
Sg 
S218 
ba IPN 1) 
eee 17) 
ms 31) 
mal 
Zoi 


re) 


pares 12) 


ion 
rw) 
nx 
wd 
[sa 
we) 
o 
ww 
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3420 
ra eS 7 
5446 
S45e 
5460 
3478 


“REM 


F=(PA)+512+VT+7 
POKE F,164 


-FOR F=F+i TO F+62 


SOUND #,T,18,8:T=T-1 
POKE F,4:POKE Fti,id 
NEXT F. 

SOUND 6,9,9,@ 
X=USR (ADR (WTS) , 32) 

REM __PICK UP "A" 

FOR R=19 TO 4 STEF -1 
FOR F=F TO F-7 STEF -1 
POKE F,@:POKE F-1,194 
NEXT F 

IF R<31G THEN 4916 

POKE (DB+1)#*#256+17,a 
POSITION 17,R+127 #63" " 
POSITION 17,R:? #63 "A" 
=2@0:DIST=18:GOSUB 5426 
NEXT R . 
FOSITION 17,3:7 #63" " 
POSITION 17,8:7 #65 "EE" 
POKE PCR®,14 

SOUND 4,9,0,@ 

FOR F=F TO F-6 STEP 
POKE F,@:POKE F-1,14 
NEXT F 

POKE F,@:POKE F-1,17@ 
POKE 704,14 
X=USR (ADR (WTS) , 3@) 

REM __ MOVE PROTO LEFT 

FOR HZ=176 TO S6é STEP -6 
FOR BS=2 TO @ STEP -1 
SOUND @,BS#19+200-HZ,14,8 
X=USR (ADR (MPS) , 8, BS, VT,HZ) 
X=USR (ADR(WTS) , 4) 

NEXT BS 

NEXT HZ 

PROTO OFFSTAGE 


SOUND 4,%,@,@:SOUND 1,8,8,0 
X=USR (ADR (MF'$) , , 8, VT, ) 

REM __SET UF SCRL. SCREEN 
S=(DB+1) #256 - ; 

S¢=" w 

READ M$:S%(21)=M$:L=LEN (S$) 
FOR f=1 TOL 

S$(1, 1) =CHRS (ASC (S$ (1,1) ) +96) 
NEXT I 

X=USR (ADR (MMS) , ADR( S$) ,S,L~-1) 
REM _ SCRL MESSAGE 

X=USR (ADR (MMS) , ADR (VBS) , VA, 13) 
REM __Enable VEI routine 
X=USR (ADR (SMS) ,0, 15) 

POKE 16+DA,87 

POKE 244,17:FOKE 205,DB 
X=USR (ADR (V1%),, VA) 
SETCOLOR 2,0,14 
REM __Scroll it! 
FOR C=8 TO LEN(S#) 
FOR F=15 TO 8 STEP 
X=USR (ADR (SMS) ,C,F) 
FOR IT=1 TO 12NEXT I 


=f 


= 


NEXT F 


NEXT C 
REM RUN NEXT PROGRAM 


X=USR (ADR (VG$) ):GOTO DONE 
REM __SOUND DECAY 

FOR DK=14 TO @ STEP -1i 
SOUND @,T, DIST, DK 
X=USR(ADR(WTS) , 2) 

NEXT DK 

RETURN 


LOGO 


7 BOB 
TALS 
70208 
TOS 
7O4H 
7HSB 
7060 
7070 
7988 
7TOPD 
719) 
7118 
7128 
7138 


1 eee 
1gi@ 
1ai28 
1930 
1g4@ 
1a5¢ 
Liou 
1078 
108e 
199@ 
11de 
1119 
1120 
1130 
1140 
115@ 
116 
117@ 
118¢@ 
1194 
1 Dei 
12108 
1228 
1230 
Pag 
DAD 
Daz 
° 


e 
2H 


a7 
@ 
e 


2116 
2120 
216e 
2179 


e 
2258 


2260 


220 
2310 
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REM __DATA FOR DISFLAY LIST 
DATA 112,112,112,71,112,@ 

DATA 7575757579 7u7uTo7y7 

DATA 71,0,8,65.9,9 

REM __DATA FOR "E" AND "S" 
DATA 1,%,4,2,8,4,4,8,6,4,6,0 
DATA ty 25 Be 4y Sy by 3y by De Salgl 
DATA 3, By 6,8, 8,8, 70 by Sy Be 352 
DATA 144,85 4525 15 35 8e Ge Sn 704 
DATA 4,15, 54854, be By Sp 2a 451d 
DATA 5in.4e 25 208s 75 444,748,258 
DATA 4,5 

REM __DATA FOR SCROLL MESSAGE 
DATA ESI AND PROTOTYFE PRESENT 


THE CHOP ACTER MOR APH TCS 
TUTOR TAC By eM Percy, 
PTUTOR TAL NUN Eres 6] 


HORSE 
REM EDUCATIONAL SOFTWARE 
REM SSeS ea eae 
REM HORSE 
REM by Stan Gilbert 
REM 
REM Character graphics tutorial 
REM horse demo. 
REM 
FEM VERSION 1.4 
REM (C) JANUARY 17th, 1983 
REM qm srt rrr rrr 
REM 
TM=FEEK (186) : DONE=1159:GOTO zag 
REM 
REM ___ _ALL DONE 
TRAP 1228 . 
POKE 1086, TM:GRAFHICS @ 
POKE 53248,8:FOKE 53249, 
POKE S2250,@:FOKE S3251,08 
POKE 53252,8:FPOKE 532535,6 
POKE 53254, @:FOKE S3255,08 
RUN “Di PICTURES" 
? "G@"ssLIST 12i1@:STOP 
REM 
REM Assembly code 
REM 


DIM WT$(57)°REM TFDELAY. OBJ 


REM 
DIM FM$(54):REM —FILMEM. OBJ 


REM 
DIM MM$(52) REM —MOVMEM. OBJ 


REM 
DIM BS$(126)2REM BEASTS. OBJ 


REM 
DIM SP$(48):REM —SETPMS. OBJ 


REM 
DIM MFS(1225) °REM —MOVPMS. OBJ 


HORSE 


@ REM 4630 X=USR(ADR(SP$) ,PB):FPOKE 704,82 


238 
2398 DIM HF$(1024)!REM —TEMP.FNT 4652 POKE 53254, 1 

‘ 4648 VT=98:HOME=52 
sate aOTo 4390 4650 X=USR(ADR(MPS$) ,@,1,VT, HOME) 
4928 REM 4668 FOR D=14 TO 8 STEP -2 
4929 REM w___HORSE GALLOPS 447@ SOUND ,40,12,D 
4049 FOR C=2 TO 26 STEP 4 4690 en at 

=? E 756,CB 4699 NEX 
pes pcetaae ie jai : 4706 X=USR(ADR(WTS$) , 254) 
407@ FOR J=1 TO 4 4710 X=USR (ADR (MPS) , 8,4, VT, HOME) 
° 4720 FOR I=1 TO S:GOSUB 4278°NEXT I 

4880 READ MSHS (4) =MS.- 
4898 POSITION CtJ-1,1@ 4728 FOR HZ=HOME TO 98 STEP 6 
4196 FOR K=1 TO 19 STEP é gcse? GOR SES - 2, 10)... 

° 475%) X=USR (ADR (MPS) ,@, BS. VT, HZ) 

e 4768 X=USR (ADR (WTS) , 2) 

P 4770 IF BS=1 THEN 46a¢ 
4118 72 " "“SHS(K,K+S) 3CS3 4788 SOUND @, 60,14, 16 
4120 NEXT K 479@ X=USR(ADR(WT$) , 2) © 
413@ FOR S=2 TO 12 STEP 14 48a8 SOUND 4,3,08,@ 
414@ SOUND @,S,8,S 4819 NEXT BS 
415@ SOUND 1,S,0,S 4820 NEXT HZ 
416@ SOUND 6,9,98,@ 49828 X=USR(ADR(MPS$) , 3,1, VT, 98) 
417@ SOUND 1,9,0,@ 484¢ X=USR(ADR(WTS) , 180) 
4180 NEXT S . . 4850 REM — Horse gallops 
4198 NEXT J : 4868 POKE 756,CB 
420@ NEXT C 4970 GOSUB 4048: POKE 754,224 
42198 X=USR(ADR(WTS) , 20) 4880 REM — Jap PROTO toes ° 
4226 FOR R=1i@ TO 13 4898 FOR TOES=1 TO 6 
4229 POSITION 30,R:? " "5 4949 FOR BS=3 TO 5 
4248 NEXT R 4918 X=USR (ADR (MPS) ,&@, BS, VT, 98) 
4259 RETURN 4926 X=USR(ADR(WTS$) , 8) 
4260 REM ma__FPROTO VOICE 4930 IF BS=4 THEN GOTO 4976 
4270 READ M$: IF M$=""" THEN 4919 4940 SOUND 4,44,19,4 
4289 L=LEN (M$) : TD=L#10:2CM=(4@-L) /2-1 49506 X=USR(ADR(WTS$) ,8) 
429@ POSITION CM,22 4960 SOUND 8,9,4,0 
4306 FOR V=1 TOL 4978 NEXT BS 
431@ SOUND @, ASC (M$(V,V)),10,10 498@ NEXT TOES 
4320 ? CHRS (ASC (MS$(V,V)))3 499@ X=USR (ADR (MPS) , 6,1, VT, 98) 
4330 NEXT V 508208 X=USR(ADRI(WTS$) , 200) 
434@ SOUND 8,0,4,0 — 3810 X=USR (ADR(MFPS) ,@, 12, VT, 914) 
4350 X=USR(ADR(WTS), INT (TD#2.5) ) 5020 FOR HZ=98 TO HOME STEF —-6 
426@ POSITION CM, 23 3430 FOR BS=2 TO @ STEP -1 
4370 ? "ta": RETURN 3840 X=USR (ADR (MF) ,@, BS, VT,HZ) 
4380 REM — Mainline 2858 X=USR(ADRA(WTS) , 2) 
43908 FOKE 77,1 2460 IF BS=1 THEN Seog 
4440 DIM M$(8a),D$(49) ,CS$ (1924) S87 SOUND @, 68,108,108 
4416 DIM H$(24) ,C$ (20) 5088 X=USR (ADR (WTS) , 2) 
4420 HS=" "SCG=" peceteee” 3896 SOUND 8,4,0,8 
4444 PB=TM-4: PA=PB*#256 5i1ag@ NEXT BS 
4450 CB=FB-4: CA=CB*256 S11i@ NEXT HZ 
44606 POKE 106,CB-1 . S128 X=USR (ADR (MPS) , 4,1, VT, HOME) 
447@ X=USR (ADR (FMS) .CA, @, 248) 5134 X=USR(ADR(WTS) , 140) 
4480 GRAPHICS 1+16 5914@ FOR I=1 TO 3:GOSUB 427@:NEXT I 
4490 REM w.—_ZInstall character set SiS@ GOSUB 4846:POKE 756,224 , 
43506 X=USR (ADR (MMS) , ADR( HFS) , CA, 1824) 516@ X=USR(ADR(WTS) , 250) 
43510 REM Install FPROTO 917@ RESTORE 717@:GOSUB 42768 
4524 X=USR (ADR (MMS) , ADR (BS$) , PA, 135) 519@ REM 
A4AS=0) REM wae aint intro screen 2719@ GOTO DONE 
4540 FOR I=4 TO 16 STEP 3 5202 REM 
4SSa READ C,M$% w2og REM nmaaSOUND DECAY 
4546@ POSITION C,1I:? #63M$& 3248 FOR DK=14 TO @ STEP -1 
4570 NEXT I 52508 SOUND @,T,DIST, Dk 
458@ X=USR(ADR(WTS) , 191925) 5268 X=USR(ADR(WTS) , 2) 
459@ POKE 756,CB 3276 NEXT DK 
460@ GRAPHICS @:POKE 752,1:? 5281 RETURN 
4610 SETCOLOR 1,9,@:SETCOLOR 2,484,939 7adg DATA 3,FROTOTYPE WOULD 
4626 REM —— Bring on FROTO 7H18 DATA 4,LIKE TO OFFER 
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HORSE 


78208 DATA 3,YOU THIS TIDBIT 4520 GOSUB 4¢6¢) 
7838 DATA 1,TO WET THE APPETITE 4330 SETCOLOR 2,8, @:SETCOLOR 1.0,10 
704 DATA 1,0F YOUR IMAGINATION 4349 PORE 82,5 
7@58 DATA Hmmmm! A day at the races. 4550 ? 
7068 DATA Tra La Tra La 4366 2? " ——y i 
7087@ DATA Which horse shall I bet on? 4370 2 " 1 A TANK f 9 " 
7084 DATA HARK! 4380 ? " nn i we 
70898 DATA What horse yonder cometh? 4398 2D OM . iy 
710@ DATA 44/\.4m™ “an | 44a 7 "- 1 " 
7118 DATA abcdefghi jkim Inoplil 441g 7 " ! " 
y ; 
7120 DATA arstuvwxyzt hil wel 4420 ? 
7iZG DATA '4,H482Z&°@C)S>e+E 5 #-O 4420 2 
7148 DATA AH YES... Now I remember... 4440 > 
715@ DATA That horse has CHARACTER! 4450 °? 
7148 DATA Watch and see what I mean. 4460 ? 
717@ DATA NEED I SAY MORE? 4470 ? 
4480 ? 
44908 ? 
4500 7? 
PICTURES 4510 ? 
4520 ? 
452@ GOSUB 4g4ui 
1g@@ REM EDUCATIONAL SOFTWARE 454@ SETCOLOR 1,4,:SETCOLOR 2,2,9 
1gig@ REM ---------------------------- 4550 POKE 92,5 
192@ REM PICTURES 454@ POSITION 1,@:?7 "“FROTO" 
1929 REM by Stan Gilbert 4570 7?" wow" 
1949 REM. 45980 7" Bm" 
195@ REM Character graphics tutorial 459) > ' RRERCERUEE _ " 
1860 REM pictures & examples. 4600 ? " [eNRaCcul co" 
197@ REM - 4610 7" a2y Yo 
1980 REM VERSION 1.4 4670 7" @ ee ay 
109@ REM (C) JANUARY 17th, 198% 462 7" ml AMBULANCE " 
110@ REM -------~-----------—-------+ + 4640 7 "Baw " 
1119 FEM 4650 7 " 8 r 
2400 REM Assembly code 4560) ? " \w/ BAT an " 
2010 REM 4&7a >? " cu " 
2020 DIM WT$(57):REM —TDELAY. OBJ 4690 7 " | Eo 
; 469 7°" SHIF um 
: 4700 7" ™~™~ “Me mm i" 
4ga@ REM 4710 ? " - JAH aa" 
4aig) REM MAINLINE BT Po OY BS Sie gt ee ec a oe eee ee a] ae 
4920 DIM BT$(9):BT$="_w_\w/ 4730 2 " ON / or ah 
4928 GRAPHICS @:FOKE 752, 1 4746 > "eee ee : 
4949 GOTO 4138 4750 ? " Zz CO" 
4950 REM om_DINK AND WAIT sub . 4768 > " aan " 
460 FOR I=14 TO @ STEP -2 4770 2 " ROCKET Mim " 
497@ SOUND 1,20,18,I_ - 4780 GOSUB 4H60 
4gou NEXT I 479@ FOKE 82,2 
4090) FOKE 764,255 489@ SETCOLOR 2,8,@:SETCOLOR 1,9,8 
4100 K=PEEK (764). 2IF K=255 THEN 4190 4810 REM —— CASTLE 
4119 POKE 764,255:7 "%"s:RETURN 48209 FOR R=15 TO 22 
4120 REM — PICTURES . 4820 FOSITION 2,R:7 "M"$ 
412@ SETCOLOR 1,8,@:SETCOLOR 2,@,12 4840 NEXT R 
:4140 FOKE 62,1 4850 POSITION 2,14:°7 " «aea" 
"4isa ? 496 POSITION 2,13:7 "Seesge” 
4169 7 "" eter eee, 4878 POSITION 1,15:7 "wa" 
41708 > " | AN AIRFLANE | " 4889 FOR R=6 TO 13 
4198 7" Ticlcbealaesiameiasceercaes> 499¢ FOSITION 8.R:? "mI" 
4198 7 "Lepe” 4900 NEXT RK 
420g 7". F " 4918 FOSITION 1,927 "—p-——" 
4219 7 " | " 4920 POSITION 1,19: 7 “Sisialeney" 
4220 7 " | " 497 POSITION 1,11:7 "“(@eeRegs" 
4239 7 " | " 494@ POSITION 13,0:7 "ude" 
4740 > " { » ' 4950 FOR R=1 TO S 
4250 7". _ PP Necoal, 496@ POSITION 15-R,R:7 "4" 
4260 7 " | " 497 POSITION 14+R,R:? "wm" 
270 > " " 4988 NEXT R 
2aa 7" yoy # 4994 FOR R=6 TO 11 
4290 > " | [oN oo" ~ Saag POSITION 19,R:7 "mM" 
4nag 2" /| “y* Wo" Sig NEXT R 
43i8 >? " if 5 Th Sd2a FOSITION 2a, 11 


PICTURES 


? "a oe me B 5730 
POSITION 24,18 5746 
? "a a cme" 5750 
FOR R=19 TO 22° S740 
POSITION 33,R:?7 “M's 5770 
NEXT R | 5780 
POSITION 35,19:7 "4" 5790 
POSITION 35,20:7 "die" 5aa0 
POSITION 35,21:? "laa" 5818 
POSITION 35,22:7 "MEMS 5920 
POSITION 13,5:7 "/-—=\" S80 
POSITION 13,6:7 "} fg" 5846 
POSITION 13,727 "\oun/" Sasa 
POSITION @, 23 3 SB4El 
FOR I=1 TO 39:7 "M@’S:NEXT I 5870 
FOR STAR=1 TO 10 : 58a 
READ C,R:POSITION C,R:? "." 5a90 
NEXT STAR 7008 
POSITION 33,5:? "e" 7O1e 
REM ——-WIND 7920 
FOR I=3@ TO 1@0 STEP 2 7a3e 
SOUND 2,1,8,1/10-4 7H4e 
FOR W=i TO S!INEXT W 7050 
NEXT I 7S 
FOR I=1@@ TO S@ STEP -2 7A7G 
SOUND 2,1,8,1/10-4 7086 
FOR W=i TO S:NEXT W : 7A90 
NEXT I 7106 
REM BAT 7110 
FOR I=1 TO 27 7128 
IF I=9 THEN X=USR(ADR(WTS) , 90) 7136 
IF I1=9 THEN LB=5:GOSUB 5746 7140 
READ C,R 7150 
FOR BT=1 TO 7 STEP 3 7146 
POSITION C,R2? ET#(BT, BT+2) - 7170 
X=USR (ADR (WTS) , 121). 7188 
NEXT BT 7194 
NEXT I 

POSITION C,Ri? BT#(4, 6) 

LB=18:GOSUB S740 © | 

REM MUSIC 

TRAP 5S54e 

READ A,J,B 

POKE 540,B | — 
SOUND @,4,0,@:SOUND 1,9,,9@ 1 
SOUND 2,4,4,@:SOUND 3,9,9,0 1gid 
B=PEEK (548) :C=B/2 igen 
IF C>8 THEN C=8 nee 
IF J=@ THEN 554@ ae 
SOUND @,A,18,C:SOUND 1,A+1,16,C 150 
SOUND 2,A-1,1@,C:SOUND 3,J,12,C 1idOu) 
IF B¢>® THEN 549¢ 1078 
GOTO 5450 ieee 
C=8 | inde 
SOUND @,43,12,C:SOUND 1,55,12,C ae 
SOUND 2,42,12,C:SOUND 3,31,12,C 133 
POKE 540,10 spa 
IF PEEK (540) <3@ THEN Scie ae 
FOR C=8 TO @ STEP -#.95 aoe 
SOUND @,63,12,C : 
SOUND 1,55,12,C ‘ 
SOUND 2,42,12,C Deb gi 
SOUND 3,31,12,C 2A7e 
NEXT C : 
REM ——ALL DONE : 
POSITION 6,23 ere 
rs NY ey TO CON NU a aa 
GOSUB 4u6e 

RUN "D:LESSON@1.CG" 

LIST 571@:END 


- 59 - 


REM wqa_lIGHTNING ¢..aroutine 
FOR ZAP=8 TO LB 


Z=30-ZAPS IF LE<S 
POSITION Z,ZAP:? 


THEN Z=2+ZAP 
_ 


NEXT ZAP 
FOR ZAP=@ TO LB 


Z=3@-ZAPS IF LB<8 


THEN Z=2+ZAP 


POSITION Z,ZAP:? " 

NEXT ZAP 

FOR P=5 TO 10@ STEP 2 

B= (RND (@) #1945) / (0. 1#P). 
SOUND @,P,8,B8 

B= (RND (8) #1945)/(G.1#P) 
SOUND 1,P+206,8,8 

NEXT P 

SOUND @,2,0,9:SOUND 1,9,0,@ 
RETURN 

REM ——_DJATA STATEMENTS 

REM Stars 

DATA 2,1,3,3,19,4,23,9,29,8 
DATA 18,2,24,5,26,1,31,2,39,2 
REM Bats 


DATA 
DATA 
DATA 


8,2,18,3,19,2 


24,5,19,4,14,5,19,7,11,8 


DATA 1%,9,18,10,11,11,12,11 


DATA 
DATA 


15,12,12,13,14,14,16,13 
17, 14,17, 13,19, 13, 24, 12 


REM _A little mood music 


DATA 121,63, 20,1,8,3, 192,55, 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM 


REM 
Dil" 


REM 
DIN 


ia 
121,63, 18,85, 45, 19,91, 42,10 
64, 31,20,1,8,3,76, 408,10 
81,42, 18,91, 48,20,1,08, 30 


1,9,3,91, 48,19, 102,55, 10 
188,57, 10,121,63,10 
1354, 72,28,1,0,6 


FONTFLIP 


EDUCATIONAL SOFTWARE 


at Ss em NE SRD cine ED GOERS SED Gere Gents Gnd seuen <EuRe Quen GENE Foun GE Nene GE SEE See ee eet nine one ettee mee 


FONTFLIF 
by Stan Gilbert 


Character graphics tutorial 
Font flipper. 


VERSION 1.8 


(C) JANUARY 17th, 1983 


Oe Cet mee Cm me Maem Cee comms ee ume eve cares Gime SEED ene aeEDE St HRS Gem at) Som Oot Ont See EES see ne 


aaAssembly code 


MM$ (S52) >REM —MOVMEM. OBJ 


BFS (298) SREM oo HIGEBLOCK.FNT 


EF% (208) :REM welt LEGANT. FINT 


81,42,19,91, 48, 10, 182,55, 2a 


2S 
2518 
2520) 
2538 
2546 
2350 
2360 
2378 
2288 
2598 
Z4ag 
2418 
2428 


2420 


24485 
=4503 
2468 


29 4i8 
2ITB 
e 
e 


4gag 
4gig 
4giza 
4930 
4n4ag 
4950 
4goe 
4a7a 
Aug 
4aoa 
41g 
4110 
4i2e 
4150 
414d 
4150 
41S 
41768 
4100 
aig 
420 


4218 


4220 
4228 
4240 
42358 
4260 
4276 
4290 
4270 
4Sou 
410 
$320 


FONTFLIP 


EF$ (1%, 18) =CHRS (54) 


4330 


EF$(11,11) =CHRS (34) 4340 
EFS (13, 13) =CHRS(34) 45a 
EFS (14,14) =CHR$ (34) 4340 
EF$ (24, 26) =CHRS (34) 4376 
EF$ (27,27) =CHRS (34) 4380 
EF $ (28, 28) =CHRS (34) 4sou 
EFS (29, 29) =CHR$ (34) 4400 
EF$ (34, 38) =CHRS (34) 4416 
EF $ (34,34) =CHRS (34) 4420 
EF$ (38, 38) =CHRS (34) 4430 
EF$ (42, 42) =CHRS$ (34) 444g 
EF$ (94, 94) =CHRS (34) 4450 
EF$ (122, 122) =CHR$ (34) 4468 
EFS (123,123) =CHRS$ (34) 4476 
REM ; 4490 
DIM CF%(208)!:REM — COMPUTER. FNT 4498 
REM 

DIM GF$(246):REM —GREEK.FNT 

REM 

DIM SF$(208) :REM —SURVIVE.FNT 

SF (32, 32) =CHR*® (34) 

REM 

DIM FFS(288) !REM FANCY. FNT 

REM 

DIM LF$(208):REM .LITTLE.FNT | 

REM 

REM memeMAINLINE . 

DIM M%(4a) 

TM=PEEK (196) 

CB=TM-4: CA=CB*2546: FA=CA+264 

PORE 184,CB-1 1800 
GRAFHICS 2+16 . 1g1i@ 
X=USR (ADR (MMS) , 2244256, CA, 1924) 1928 
FOKE 756,CB Iga 
? #63" A LOOK AT FONTS" 1g4a 
> #86 1956 
> #63" ** ATARI we" 1668 
7 #S 1070 
27 #6:" ABCDEFGHI J"s 1g80 
> 4S 1398 
7 #65" KL MNOPQARS T"S 1 igigs 
> BG 1110 
7 6s" UVWX ¥ 2 ny Snide 
7 #86 4aigi 
> $s Agi2e 
? #63" xe [e] (eRe te" ey 
POKE 764,255 4a4a 
K=PEEK (754) 4050 
IF K=255 THEN 4226 4itow 
IF K=47 THEN 444¢ 4a7e 
F=F+i:IF F=8 THEN F=# aged 
AD=2644224#256 4aga 
M$='"'#+484 ATARI #48" 41a 
IF F2z1 THEN AD=ADR(BF$) 411@ 
IF F=1 THEN M$="#«# BIG BLOCK ##*" 4120) 
IF F=2 THEN AD=ADR(EFS) 41230 
IF F2=2 THEN M$="*#*« ELEGANT ###" 4146 
IF F=3 THEN AD=ADR(CF$) 4150 


IF F=3 THEN 
IF F=4 THEN 
IF F=4 THEN 
IF F=5 THEN 
IF F=S THEN 
IF F=6 THEN 
IF F=& THEN 
IF F=7 THEN 
IF F=7 THEN 


Me$="*e0% COMFUTE ##*" 
AD=ADR (GF $) 

M$="*e#ee# GREEK #44” 
AD=ADR (SF S$) 

M$="*#0% SURVIVE ###” 
AD=ADR (FF $) 

M$="#«1e# FANCY «4 #" 
AD=ADR (LF #) : 

Mh= "#284 SMALL 4H ee" 


X=USR (ADR (MM%) , AD, FA, 248) 
POSITION 3,2 


? #6SMS 
GOTO 42148 


POKE 764,255 


POKE 186, TM: 


GRAFHICS ¢ 


RUN "DI LESSON@2.CG" 
LIST 4498: STOP 


SHOWBYTE 


REM EDUCATIONAL SOFTWARE 


REM SHOWBYTE 


REM by Stan 


Gilbert 


REM Character graphics tutorial 


REM BCD and 


REM VERSION 


BYTE structure. 


1.8 


REM (C) JANUARY 17th, 1985 


REM MAINLINE 
DIM L$(4d) , 0% (28) 26 (2) MBC 4E) 


DIM BYTE(7) 


LSC1) SS L$ (44) =" "SL F(Z) HLS 


OS= "(EEE ZS=" pete” 
Mba" aie" 
P=3:R=0 


GRAPHICS @:POKE 752.1 
SETCOLOR 1,@,@:SETCOLOR 2,9,8 


POKE 82,6 


POSITION @,@ 


? Ls 


“ “ 


? LSs 


SHOW BYTE" 


POSITION @,21:7 L$s 


4160 
41708 
4186 
41948 

2g 
4210 
422 
4228 
424g 
425 
A2oei 

270 
42ese 
§2ou 
43a 
4318 
4320 
4350 
4340 
4350 
 Retoy 4) 
43768 
4280 
4su 
44g 
4419 
44208 
44a 
4446 
4450 
4460 
447% 
4480 


4490, 


4Sae 
43518 
4520 
‘4530 
4548 
rere] 
45a 
4578 
4580 
4s ei 
4 buh 
46108 
46208 
46rG 


1sgg 
isis 
wae 
12 
14g 
1gS2 
1g Se 
iu7e 
1 WBE 
198 
Liga 
1iig 
1izg 
1126 


SHOWBYTE 


Bem QUIT" 


? " REED INDEX Migsisisa SET BIT 

POKE 82,1:POSITION 1,5 

‘i BYTE " 

? tT} /N a 

” ae / \" 

? " MSB LSB VALUE” 

2 A A A cy poem * 

? "(1281 64f S2t 161 8141 2t 1 igea 

RL ON Denny CeO Senn Oey Geen ny SN yee aL 

Cail cones eee geen ene eee een meee eee BE 

ee | | { | | } ! as 

fa | | | | | : ot i" 

A Cee Cen nny Panny Fenny Geeeny pany Gey 

REM 

REM —WWKEYBOARD 1140 REM ____ALL DONE 

GOTO 44¢¢ 1158 TRAP 1220 

POKE 764,255 116@ POKE 186, TM:GRAPHICS @ 
K=FEEK (764) SIF K=255 THEN 43243 1178 FORE 53248, @:POKE 353249,6 
POSITION PtB#4,16:57 " peee : 118@ FOKE 5325¢,@0:POKE SS251,¢ 
IF K=47 THEN 4518 1198 FORE 33252, @:FOKE S3252.6 
IF Kk=S THEN B=B-1 12008 POKE 53254, 0:POKE 53255, a 
IF K=7 THEN B=B+1 1218 RUN "D: PROTO" 

IF B>7 THEN B=¢ 1220 7 "A"3sLIsST 121@:STOP 

IF B<@ THEN B=7 1238 REM 

POSITION P+H#4,16 2000 REM Assembly code 

? "EfpeceBIT "5 7-B 2410 REM 

IF Ke333 THEN 4328 : 2020 DIM MM$(49)3REM —MOVMEM. OBJ 


LOCATE P-1+B#4,13,C 

POSITION P-1+B#4,1= 

IF C=32 THEN ? O$: BYTE (B) =1 

IF C=168 THEN ? Z$:BYTE(B) = 
REM meme OMPUTE DECIMAL VALUE 
RESTORE :T=# 

FOR I=@. TO 7 ; 

READ V3IF BYTE(1)=1 THEN T=T+V 
NEXT I . 

DATA 126, 64,32,16,8,4,2,1 
POSITION 35,1@:7 "sag" 
POSITION 38-LEN(STRS(T)),18:27 T 
REM coseemel) IME: 
FOR I=14 TO @ STEP 
SOUND @, 20,10, 1 
NEXT I 

GOTO 432. 

REM ._—_ALL. DONE 
POKE 764,255:POKE 752,28 
RUN “Ds SHOWCHAR" 

? "E"ssLIST 462@:END 


2 


SHOWCHAR | 


EDUCATIONAL SOFTWARE 
SHOWCHAR 
by ‘Stan Gilbert 


Character graphics tutorial 
show a single character. 

REM . 
VERSION 1. 

(C) JANUARY 17th, 1993 

REM : 

TM=FPEEK (1946) : DONE=1158:GOTO 2000 
REM 


- 61 


Hoe 
2076 


5 e 
AIA 


4aig 
4g2e 
eS 1) 
A] 
Hoe 
4497 
4988 
Agu 
41 gig 
4118 
412% 
4130 
414g! 
4150 
4160 
4170 
418 
419d 
42g 
4219 
4228 
4220 
4240 
4250 
4260 
4270 
4280 


-REM 


DIM MBS(91)5REM MOVBYT. OBJ 


REM : 
DIM PX#(52) REM —PAINTX. OBJ 


REM 
DIM CF$(1924) SREM .—OMPUTER.FNT 


REM 


REM ameeeMA INE INE 


DIM L#(4@) MS (40) ,X$ (44) 

L$ (1) ="—"S L$ (38) "=" SL SID) ELE 
XBL) =" P'S XS (64) =" bs XH (DANS 
CB=TM-4: CA=CB#256 

POKE 184,CB-1 

GRAPHICS @ 

SETCOLOR 2,4, 

POKE 752, 1 

POKE O2,1:7 2:7 "t's 

? Los 
°? au 

? L$? 
REM DRAW CHARACTER 
FOR I=@ TO 7 

FOR J=0 TO 15 

IF J4+1*163125 THEN 4220 
? "E"SCHRS(J+1 #14) 3 
NEXT J 


SHOW CHARACTER" 


SET 


NEXT I 
7 3? 3? 3? “NORMAL FONT" 

POSITION 1,21 

? Ls 

? "Se¥@ Cantinue OR See any key" 
DL=FEEK (S46) +FEEK (541) #254 
SA=FEEK (DL+4) +FPEER (DL+5) #25 


SHOWCHAR: 


4290 OPEN #1,4,¢,"K:" 2tiog REM 
4300 REM nommINIT CHARSET 2470 DIM FM$(54)SREM D:FILMEM. OBJ 


4310 X=USR(ADR(MMS) , 2244256, CA, 1924) 
4320 FOR I=0 TO 7 
4350 POKE CA+1+126#8, 255 


= ; 2110 REM 
4348 POKE CA+I+127*8,84 Sa, - ‘ * 
435@ IF I=0 THEN POKE CA+i27«8,0 2120 DIM NM$(49) REM _D:MOVMEM. OBJ 


436M IF I=7 THEN POKE CA+7+127«8,¢ 
4378 NEXT I 

4388 POKE 754, CH dena Ges 
ae be Peres isa PNET 4910 REM —MAINLINE 

4410 GET #1,K 4920 DIM BS$(24):REM _D: BEASTS. OBJ 
4426 IF K=27 THEN N=N+l ° 

4430 IF N¢>2 THEN 4400 

4449 POSITION 1,15 

4450 ? “COMPUTER FONT" 

4460 X=USR (ADR (MMS) , ADR(CF%) ,CA, 1824) 
4470 N=3 


® 
4g4g TM=PEEK (185) 
4954 CB=TM-4; CA=CB#*256: NCA=CA+24 
485i POKE 146,CB-4:G=@:POKE 559, a 
4970 X=USRK (ADR (MMS) , 224*256, CA, 1825) 


pe TNE THEN ate 4080 X=USR (ADR (MMS) , ADR (BS#) , NCA, 24) 
4499 POSITION 11,7 409% GRAPHICS G:SETCOLOR 2,%,@ 

434g IF K<S2 THEN CHR=K+64 , 4118 POKE 752, 1:FOKE 559, =4 

451@ IF Ko31 THEN CHR=kK-32 413% IF G=@ THEN POSITION 2,26 


woot TF 273 HEN CHS 4148 2°" CO] GRAPHICS @ C227 GRAPHICS 2" 


4550 CHA=CA+CHR*S ae 415@ 7 "© £1] GRAPHICS 1 CQ] QUIT":? 
4540 X=USR (ADR (MBS) , CHA, ADR (X$) ) te ar 


455@ X=USR (ADR (PX$) , ADR (X$) , SA+224) vere — 

= ] 8 < ~ oat mB Tar 
456@ IF N<1 THEN 4410 eee MMOUE Pro) oO Mae 
4570 REM DRAW BYTE VALUES eee no : 
4580 POSITION 24,15:? " ATASCII "3 DE oti: 
4590 IF K=32 THEN ? "SPACE":GOTO 4410 a ea Mam 
460 ? "E'S CHRS(K) 5" Be oy Sas ee 

: S sas is 4210 FOKE 756,CBE 
i. ee Se esege SCREAM, Crs o ee " 
i 2 2? Ou Ne 2a b= =S39:RKX= 

ne ea Senet, woe TaaNx 2 424g IF G=1 THEN CX=19:RX=19° 
466% POSITION 34,1+5:7 "eee"; 4248 C=INT(CX/2) ER=INT(RX/2) 
4S70 2 PEEK (L+CHA) 4270 K=PEEK (764) SPOKE 764, 255 
4680 NEXT I 4288 IF K=255 THEN 4330 7 
4718 POKE 82, 2:GOTO DONE 4310 IF K=2g THEN G=2:GOTO 489% 


4320 IF Fk=47 THEN 455. 

$336 S=STICK(M).2IF S=1S THEN 4470. 

4340 POSITION C,R:? #55" "5 

435@ IF S=14 THEN R=k-1 

4360 IF S=15 THEN R=R+li 

4570 IF S=11 THEN C=C~-1 

4380 IF S=7 THEN C=Cri 

439i) IF S=S THEN C=C+tiiR=k-1 

444g IF S=5 THEN C=C+1:R=K+1 

441¢@i IF S=9 THEN C=C-1:h=Ktl 
PROTO 4420 TF S=10@ THEN C=C-isRh=RK-1 

4430 IF CCX THEN C=CX 


1ggg REM EDUCATIONAL SOFTWARE 4440 IF Cx€M THEN C=CM 

1giw REM ---------------------------- 4459 IF R3RX THEN R=RX 

1g28 REM FROTO 4448 IF RXRM THEN R=RM 

1g3@ REM by Stan Gilbert 4470 POSITION C,R . a 
ig4o0 REM 4460 2? #45 "#"5 2 X=USRK(CADRIWTS) , 2) 
195% REM Character graphics tutorial 4498 POSITION C,k _ si 
igég REM PROTO animated demo. AS 2 G5" S'S XBUSR ADK (WTS) , 2¥)) 
197 REM 451@ POSITION C,R 
196G REM VERSION 1.4 4520 2 #69 "2"32X=USR (ADR (WTS) , 2a) 
g9@ REM (C) JANUARY 17th, 1983 4530 GOTO 427% 

aoe Berean ee fn Nien ee 4543 REM ALL DONE 

1118 REM 4350 FORE 186, TM: FORE 33248, @ 
2040 REM Assembly routines 4So0 GRAPHICS ms ; 

201g REM | 457@ RUN “D?GARDEN 

220 DIM WT$(57):REM _D: TDELAY. OBJ 4534 LIST 457@:END 


=< 6? = 


1g 
11g 
1Ig2e 
1gi3¢ 
ig4e 
19g3a 
1H 
1976 
, [ded 
1898 
11g 
11108 
2A 
ea 
a a 
s 


e 
2M 
2070 


oe 
AM GIGS 
4gig 
4wi2e 
4viz@ 
- 8 


47 0 
4980 
490 
41a 
4110 
4120 


4260) 
4270 
4280 
4290 
43a 
4sid 
4320 
4330 
4340 
4350 
4260 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 


GARDEN 


REM EDUCATIONAL SOFTWARE 
REM 
REM GARDEN 

REM by Stan Gilbert 

REM 

REM FROTO’S GARDEN game to show 
REM character graphics use. 

REM 

REM VERSION 1.6 


REM (C) FEBRUARY 4th, 1982 

REM :=6-$4=$+2=-3-4S-552S-3-545>-> 
REM 

REM __ assembly routines 

REM 


DIM WT$(57) REM __TDELAY.OBJ 


REM 

DIM MM$(49):REM __MOVMEM. OBJ 

REM 
__GARDEN. FNT 


DIM CF&(1024):REM 


REM 
REM __mainline code - 
DIM G$(24) , FS (S)  RS(9) , TH(5) 


DIM W$(6),G(25),L (35) ,M(35) 


ACER=PEEK (756) 

TM=PEEK (106) 2 CH=TM—-43 CA=CR*256 
PORE 194,CB-1:GRAPHICS 2+146 
X=USR (ADR (MMS) , ADR (CFS) , CA, 1824) 
C=4: F=2@:3R=33 T=0: V=72 

REM __set up random growths 
FOR I=1 TO 35 
GCIDH=O@s LCI) eO@sM(I)=1 
J=INT CRND (GO) #18) 

IF J<3 THEN M(36-I)=J+1 

IF J>S THEN J=¢ 

GtI)=J 

NEXT I 

SETCOLOR #,4,1@:SETCOLOR 1,8,4 
SETCOLOR 2,0,@:SETCOLOR 3,12,4 
SETCOLOR 4,13,8 

REM __ paint screen 

FOSITION @,@:FOKE 756,CH 

? #63" Ode oO Fog <i 

PHOS MBS Rh ESL UE VERSUS EE g 

? #65"& a &" sg 
FOR I=1 TO 7 


? #OS"& a FRR ORES." ; 
NEXT I ; 
? #63"& a OHS "'§ 


PHOS MSR GEER HE Uhh § 
REM user input 

POKE 764,255: C=4:R=S3S:GOTO 45230 
POKE 77,@:S=STICK (@) 

IF PEEK (764)247 THEN Sse 
IF STRIG(@)=@ THEN 4602 

IF SeiS THEN 435¢@ 

REM __ clear old position 
POSITION C,R:? #63" "3 

IF C#R<>16@ THEN 4454 

IF F=1 THEN ? #43" " 

IF F=2 THEN 7 #65 "BQ" 

GOTO 44764 


= 63 


44350 
4440) 
44768 
4480 
4490 
45 ag 
4514 
4520) 
4520 
4540 
4550 
456¢i 
4s7e 
4560 
4590 
4 Gwe 
4610 
42 
46505 
Ab405 
465 
4660 
467" 
44686 
4690 
47a 
4716 
4720 
47230 
474¢) 
47350 
476 
4771 
47a 
479% 
4800 
481ida 
462 
4ar0a 
484g) 
4g5e 
4960 
48708 
4886 
4896 
49au 
4910) 
4928 
4930 
4948 
4950 
4950 
4976 
49680 
499u 
SRIGIE 
Seige 
Sm2u 
SMa 
Sia 
SOS 
bel] Py 2) 
Sa7 a 
Seog 
SOF a 
Sigg 
211 
S12 
1 Se 


9146 


IF F THEN ? #63" " 

REM determine row and columr 
IF S=14 AND R22 THEN R=R-1 

IF S=1i2 AND R<1@ THEN R=R+1 
IF R32 AND R<1g THEN 4534 

IF S=11 AND C>4 THEN C=C-3 
IF S=7 AND C¢16 THEN C=C+3 
REM __animate PROTO 

FOR I=1 TO 5 

POSITION C,R:? #63P8(1,1)8 

IF F THEN ? #63 "RJ" 
X=USR (ADR (WTS) , 10) 

NEXT I 

GOTO 4252 

KEM __throw fertalizer 

IF F=@ THEN 4736 

POSITION C+1,R-1:? #635 '"” 
FOSITION C+i, Ri? #63 "By" 
X=USR (ADR (WTS) , 44) 

FOSITION C+1,R-is7 #63" " 
POSITION C+i.R 

IF F=1 OR C#Ri>16@ THEN 4688) 
? #6: "HI": GOTO 4706 

ed #6 " " 

REM __fertalized multipliers 
X=(INT(C/3)#7)-6 
FOR I=X TO X+6:M(I)=3:3NEXT I 
F=6@:GOTO 4350 

IF C<>16 OR R<718@ THEN 4830 
REM __get fertalizer 

F=2 

LOCATE C+F,R,X ; 
TF X<3161 AND X¢>169 THEN 4668 
FOSITION C+F,R:?7 #63" " 

GOTO 4528 

IF F=¢@ THEN 48368 

F=F-1:GOTO 4768 

REM __ sprinkle water 

FOR W=1 TO 6 

FOSITION C+1,.R 

? #65 WS (WW) 

SOUND 1,W#*6,8, 6-W 
X=USR (ADR (WTS), 1) 

NEXT W 

REM adjust resevoir 
V=V~-15A=18-INT(V/8) SPFOSITION 2,4 
H=9— (V/8-INT(V/8) )*8 

IF INT(V/8)=V/8 THEN B=9 

7 #63SR$(R, BR) SIF V=ad THEN Seed 
REM __ set plant growth matrix 
IF R=2 OR Ris THEN 4258 
POSITION C+2,R 
N=((¢(0(C~-1)/3)-1) #7) +R-2 

IF L(N)=6 THEN 435¢@ 

IF G(N)=9 THEN S@ig 

L (N)=G(N) 3 G(N)=9 

L (ND =L CN) +M (ON) 

IF L(N) 36 THEN L(N)=6 

REM  =omake plant grow 

? #65 TS(LIN)D,LAN)) 
X=USRK (ADR (WTS) , 18) 

GOTO 4358 

REM _ gopher 

C=INT (RND (8) #195) 

IF C<1 OR C25 THEN Sead 
R=INT CRND (2) #19) 

IF R<il OR R27 THEN Sige 
N=((C-1) #7) +R2C=(C#3) +25 R=R+2 
FOR 1=24 TO 2 STEF -2 
POSITION C,R:? #63G6$(1,1)3 


GARDEN 


5150 U=USR(ADR(WTS), SG) 3 J=(I-6) /2 
Si6@ IF L(N)<sJ OR J<1 THEN 518” 
S170 7? #65 TS$6I,I) 

59186 POSITION C,R:3? #63G%(I-1,1-1)3 
~190 X=USR(ADR(WTS$) , 3G) 

S2ec NEXT I 

3218 KEM __ compute total score 

S228 FOR I=1 TO 35: T=T+L (1) 2NEXT I 
9250 REM __ score screen 

3244 GRAPHICS 2+16 
5250 POSITION 1,557 #63 "tetelsdseee" 5 
5260 7 #65 INT(T/10) 5 "BSRMI Sa" 
y27i X=USR(ADR(WTS) , lage) 

5280 ? #463"T"3GOTO 4110 

y27k REM all done 

53a2 POKE 764,255:FOKE 104,1TM 

3510 RUN “D3 CHAREDIT.UTL" 


CHAREDIT 


1g REM 
191g REM EDUCATIONAL SOFTWARE 
1g2g REM 
1934 REM CHAREDIT.UTL 

1g4g REM by Stan Gilbert 

igS@ REM 

1968 REM Character set editor and 
14:78 REM animator. 

1290 REM 


11g REM (c) NOVEMBER 2ist, 1982 
111@ REM VERSION 1.4 
(ie REM: Sean eeseoeeeadeeotc oe ee 
1138 REM 
114 REM __Assembly code 
115@ REM 
114d DIM WT$(57) REM __TDELAY.OBJ 
12808 REM | 
1216 DIM FM$(54):REM __FILMEM.OBJ 
1258 REM 
1269 DIM MM$(49):REM __MOVMEM. OBJ 
1320 REM 
131@ DIM CC#(37):REM __CIOCTL.OBJ 
iz4a° REM 
1355 DIN MS$(82):REM __MOVSTR. OBI 
140 REM 
1410 DIM MB$(91):REM __MOVBYT.OBJ 
1478 REM 

_SHIFTY. OBJ 


1488 DIM SF%(118)>REM 


135g) REM 


156@ DIN PX#(62)2REM __PAINTX. OBJ 


08 SEUe OY OE ED SEEDS RUNNY ORNS EY ETD POND SELLD SAYED GLEE SY SIGTE STIS GED SRLS ONES TEND diode Gs COED come coun SoD 


tne any SO NED ET SENS Te TURD SENT SOY GND SENG CLT COLDS COED GUD ED GOES GNOG GinmNy CED omOS Gm <US MTS cua ome 


© 
e 
21208 
2130 
2140 
215¢@ 
2168 
2176 
2188 
2190 


we 90$(96H):REM _ CHAREDIT.SCHh 


GOTO 2448 

REM __GET INPUT STRING 

X=] 

POSITION 1,22:7 DS3M$3 3: Me="" 
GET #1,KEY:7 CHRS(KEY) 3 

IF KEY=155 THEN 22104 

IF KEY<>126 THEN 22a 

IF X31 THEN X=X-1:3GOTO 21464 


~ -2208--MS$ (X) =CHRE (KEY) 5 X2X+13GOTO 2148 


2218 


22a 


2236 


224g 


2258 


Sead 


- 64 - 


22he 
227 
2288 
2278 
2280 
23518 
2520 
23550 
2548 
2558 
2568 
2376 
2588 
2598 
ZAGg 
241 
2426 
2450 
244a 
2458 
2454) 
2470 
2484) 
2490 
2g 
201d 
Load 
25.38 
204 
Pine ye 
2066) 
2u7e 
2588 
Pine 
2dKig 
2618 
2628 
2050 
2548 
24658 
2558) 
25708 
#580) 


POKE 7@2,44:POSITION 1,22:7 D$} 
RETURN 

REM __GET FILENAME 

IF M$=""" THEN M$="Q" - 

IF M$="Q" THEN POP :GOTO 3174 
F$="Di "IF LEN(M$)<3 THEN 2300 
IF M$(2,2)="3" THEN 2298 | 

IF M$(3,3)<3"5" THEN 2300 
F$=M$:GOTO 2312 

F$ (3) =M% 

FOR I=1 TO LEN(FS) 

IF F@(1,1)="." THEN 2356 
NEXT I 

F$ (LEN (F$) +1)=".FNT" 
TRAP 3820:POKE 752,1:7 
RETURN . 
REM __PAINT MATRIX 

FOKE 752,1:POSITION 1,3:? 
X=USR (ADR (PX$) , ADR (X%) , MAD 
FOR I=a TO 7 


Fe; 


POSITION 14,1+5:7 " eee § 
IF N=1 THEN ? PEEK (I+CHA 
NEXT I ; 

RETURN : 

REM __CHAR POSITION 


IF CH<32 THEN CHR=CH+64 

IF CH31 THEN CHR=CH-32 

IF CH>95 THEN CHR=CH 
CHA=CA+CHR*8 

X=USR (ADR (MBS) , CHA, ADR (X$) ) 
POKE SA+22+4#4¢@, CHR 

X=USR (ADR (MMS) , CHA, PAtS42, 7) 
IF BLD=@ THEN 2610 ; 

X=USR (ADR (MMS) , BAC 1) , FA+G90, 7) 
X=USR (ADR (MM$) , HA(3) , PA+S99, 7) 
X=USR (ADR (MMS) , BA(2) , PA+819, 7) 
X=USR (ADR (MMS) , BA (4) , PA+B24, 7) 
RETURN 

X=USR (ADR (FMS) , PAt640, 8, 255) 
BLD=@:FOQKE 53249,138 

X=USR (ADR (MM$) , CHA, PA+693, 7) 
RETURN 

REM __ EQUATES 

DIM B%(4),BA(4),C%(26) ,D$(38) 
DIM F% (20) .M$(40) ,P (24), X$(54) 
XH CL) =" bs XS (54) =" bs XH (2) SXF 
D&(1)=" "2DS(19)=" "2DS(2)=Ds 


Dh (2D) ma ee eee! 


TM=FEEK (126) 

FR=TM-43 PA=PB*#256 
CB=PB-4: CA=CB#256 
FOKE 106,CB-4 
GRAPHICS @:POKE 359,¢ 
FOSITION 1,3:7 


2778 
273@ 
2798 
2Bue 
2314 
2820 
2B2m 
2849 
2B5a 
286m 
2O7 
Fastet 
2898 
Pie oat 
2915 
2928 
29 38 
2940 
27 
29D 
297 
29808 
2998 
ea oT) 
SLs 
SM2e 
TOMS 
Sada 
At bas 
SHe is 
oh 7 
SAS 
arog 
Leis 
Slig 
2128 
S128 
SL 4g 
SAE 
B1Si3 
2176 
S168 
31 a 
me 2 
S218 
ea 
S230 
ee 2 
225 


oO 


Star 


RET at) 


S37 


Sei 
a PS 


Saga 
Sh 1g 
BAD 
as Bee 1 
aaa 


i eal 


e 


CHAREDIT 


DL=PEEK (56) +PEEK (561) #256 
SA=PEEK (DL+4) +PEEK (DL+5) #256 
MA=SA+14+5 "40 

FOR I=1 TO LEN(CS) 

IF 1<18 THEN B=PA+920 

PCL) =B4+4s B=B+4 

NEXT 1 

X=USR (ADR(MM$) , ADR (SC%) , SA, 94M) 
OPEN #1,4,4, "Ki" 

REM __PLRMSL 

FOKE 54279,FB:FOKE 53277,3 
POKE 623, 1 

POKE 53256,@:FOKE 53257, 1 
POKE SE259,1:FOKE 53259,3 
FOKE 
FOKE 746, 3@:POKE 707,132 

X=USR (ADR (FM$) , FAt512, 8, 512) 
POKE 53249, 15@:POKE 53249,128 
FOKE S3250,146:FOKE 53251,178 
GOTO 2828 

REM __INIT CHARSET 

POSITION 1,22:7 D#3 

2 "INIT (Y/N)? "SIGET #1,KEY 
POSITION 1,22:7 D#s 

IF KEYS>89 THEN 314@ 

X=USR (ADR (MMS) , 224*255, CA, 1024) 
FOR I=0 TO 7 

POKE CA+1+126*8, 255 

FOKE CA+I+127*8,84 . 

IF I=@ THEN FORE CA+127*8,.¢a 

IF I=7 THEN POKE CA+74+127«8, 0 
NEXT I 

Ci=15:Ril=2! CH=ASC ("@") 

FOKE 756,CEIPOKE 82,1 

PUKE 789,1@:FOKE 718,@ 

FORE 559,46 

REM — FAINT CHARACTER 

GOSUE 2446: GOSUE 
¢EM — USER INFUT 
Cai: R=1:CX=1:RX=1 
POSITION CyR+4:2 "ses 
GET #1, KEYIPOKE 752, 
REM CLR ERR MSG 

IF NOT E THEN 325¢ 
FORE 752,14 
FOSITION 1,22:7 
POSITION C,R+4:7 
PORE 752, 

FOR B=1 TO LEN(C#) 
IF KEY=ASC (C$ (B,E)) 
NEXT B 

POSITION 1,22:7 
E=1:GOTO 3178 
X=USR (ADR (FMS), F (1), 8, 40) 


Dt: E=0 


or 5-4: us H 


THEN 


eT 1 


ON 
ON 
ON 
ON 
IF 
IF 


B GOTO 4580, 4594, 4600, 4616 
BR-4 GOTO 4678, 4549, 4659, 4666) 
H-8 GOTO 4550, 4554, 4550, 4550 
H-i2 
H=17 
NOT 


THEN 25¢ 
BLD OR B26 THEN 


rrr 


3 PE 


23588 FOKE 752, ¢ 


J 


aT ENT re 


GOTO 2438, 3449, 2460, 240K 


IF BXk2@ OR Bo21 THEN GOSUB 259 
ON E-17 GOTO 4246, 3568, 3528, 3860) 
ON BH-21 GOTO 2989, 2694, 3068, 3700 


IF B=?4 THEN 4898) 

REM __HOME CSR 
C=1tR=LiCX=CIRX=R:GOTO 3176 
CH8:R=@:CX=CIRX=R:GOTO 317¢ 
REM BYTE #°S ON 


65 


24 oid 
O77 
3400 
oA DHS 


Soe 


FS1g 


pee 
"yy mo = 4] 


cant nad 10 


3540 


boi 
Sore 
Ooh 
Se 
ee ag) 
By aw 

3 
eis 1) 
rae 17) 
areas) 
ee 
377i 
37a 
ee) 
Saad 
Said 
2620 
et = RS 1) 
204 
SONG 
SB68 
2070 
288 
Bars 
eT 
S918 
3920 
S938 
S94H 
3958 
296 
3970 
3988 
S998 
Aes gs 
4aia 
AB 
4a 
AAG 
Aya 
Agagi 
4gva 
4aGu 
AM pe 
4ige 
4iigs 
412g 
g1 20 
414¢ 


N=1:GUSUR 24@4:G0TO 
REM BYTE #°S OFF 
N=G:GOSUE 244@:GOTO 
REM __CSR OFF 

FOKE 752,1:G0TO 3176 
REM __CLR MATRIX 
X=USR (ADR (FMS) , ADR (X#) , 127 
X=USR (ADR (MS) , ADR (X#) , CHA 
GOTO 3148 

REM BLD 

M$="4 CHARACTERS? ":GOSUB 
E$=M$l1F M$="Q" THEN 317¢ 
IF LEN(E$)=4 THEN 3600 
? "G":GOTO 3560 

X=USR (ADR (FMS) ,PA+698, 8,16 
POKE 53249, 130:BLD=1 

X=USR (ADR (FMS) ,FA+819, 8, 14 
FOR I=4 TO 1 STEP ~41 
CH=ASC (BS (1, 1)):GOSUB 2460 


3170 


S176 


"HA CT) =CHA 


NEXT I 

GATO 314¢ 

REM LOAD FONT 

Mt="LOAD? " 

GOSUER 2149:GOSUB 2240 

OFEN #3,4,8,F$:FOKE 752, 
X=USR (ADR (CCS) , 3,7, CA, 1889 
GOTO 3798 

REM SAVE FONT 

Mti="GAVE? " 

GOSUE 2148:GOSUE 2246 

OPEN #3,8,48,F$8:FOKE 752,1 
X=USR (ADR (CC), 2,141,CA, 192 
CLOSE #3 — 

FOSITION 1,22:?7 Dt 

FORE 7592,1:GOTO 7146 

CLOSE #3:FOSITION 1t,22:7 D 
Ame”) BD LE NAT es Be 
E=1:FOQKE 752,@:GOTO 3176 
REM — GET/FUT CHR 

IF NOT BLD THEN 3948 
M$="SELECT "2M#(8)=Bt 
MR(12)="7 "sGOSUE 2140 

FOR I=1 TO 4 

IF M$=B#(1.1) THEN 3920 
NEXT I 

? "“a":GOTO 3878 

CH=ASC(M#) GOTO 3146 
FOSITION C1It2G,RitiS: 7 "+! 
FOSITION Cit+2G,Ri+t52 7 "+e! 
GET #1,§ 
CHA=CA+ (C1i-1+ (Ri-1) #18) #8 
IF E=81 THEN 3178 

K=42 THEN Ci=Ci+! 

K=45 THEN Cil=C1~1 

K=45 THEN Ri=ki-1 

K=61 THEN Ri=Ri+d 

Ri=@ THEN Ris? 

Ri=8 THEN R1=1 

Ci=@ THEN Ci=198 

Ci=19 THEN Ci=1 

IF K<3155 AND e382 THEN %t 
CHR= (CHA-CA) /8 

IF CHR<64 THEN CH=CHR+32 
IF CHR>63 THEN CH=CHR-44 
IF CHR?95 THEN CH=CHR 

IF E< 382 THEN 417¢ 
Ras (PEde256) #(C1-14+ (R11), 
X=LIGR (ADR (MM) » RA, CHA, 7) 


CHAREDIT | 


415 GOSUB 2583:GOSUB 2380 4850 7?" 9 eee" S PEEK (RX-1+CHA) 
4148 POKE 752.8:GOTO 3948 4860 CX=CIRX=Ri Wes 

4170 IF BX>21 THEN 4200 4876 GOTO 31790 

418 X=USR (ADR (MBS) , CHA, ADR (X$)) 4880 REM __ALL DONE 

419% GOTO 3140 4898 IF BLD THEN GOSUB 259@:GOTO 3148 
4200 X=USR (ADR (MS$) , ADR (X%) , CHA) 490 POSITION 1,22:7 D$3 

4218 GOTO 3149 4919 7 "QUIT (Y/N)? "$:GET #1,KEY 
4223 REM 4920 IF KEY=89 THEN 4948 

238 REM __ANIMATE 4938 POSITION 1,22:7 D$:GOTO 31id6a 
4248 D=4:N=@:M$="CHRS? ":GOSUB 2148 4940 POKE 106, TM!GRAPHICS gi 

425@ IF LEN(M$)<2 THEN 314¢ 4959 POKE 53248,0:POKE 53249, a 
4268 POKE 752,1:? "SLOW FAST QUIT" 4968 POKE 53250,8:POKE 53251,8 
4273 X=USR (ADR (MBS) , CA, ADR (X$) ) 497@ POKE 92,2: X=USR(ADR ("hime") ) 


4288 GOSUB 23ea 

4299 K=PEEK (764) :FOKE 764,255 
3200 IF K=255 THEN 4426 

43108 IF K<>62 THEN 4350 

4320 D=D+4:F=1:IF D>32 THEN D=22 
433@ POSITION 1,22:7 “gM FAST" 
4346 GOTO 4420 

435@ IF K<>56 THEN 4398 

4560 D=D-4:F=1:IF D<1 THEN D=é 
437@ POSITION 1,22:?7 "SLOW tageiomg" 
4388 GOTO 4428 

4290 IF Ké>47 THEN 4428 

4480 POSITION 1,22:7 D$3 

441d GOTO 21498 

4426 FOR I=1 TO LEN(MS) 

4420 CH=ASC(M$(I,1)):GOSUB 24468 
444% X=USR (ADR (PX$) , ADR (X#) , MAD 
4450 FOR WAIT=1 TO DINEXT WAIT 
4468 NEXT I 

4478 IF F=8 THEN 453@ 

4456 POSITION 1,22:F=8 

4498 IF D=@ THEN ? “SLOW " 
45aa IF D=32 THEN ? " FAST" 
4518 IF D=@ OR D=32 THEN 457@ 
4528 7 "SLOW FAST" 

4538 GOTO 429¢ 

4546 REM __SHIFT 

455@ POKE 752, 1:X=USR(ADR(SFS).B, CHA) 
4554 GOSUB 2588:G0SUB 23580:GOTO 317% 
457% REM __MOVE CSR 

4588 R=R-1:GOTO 4988 

459 R=R+1:GOTO 4680 

460% C=C-1:GOTO 4686 

461@ C=C+1:GOTO 46280 

4624 REM __SET WRITE 

4630 R=R-1:W=1:GOTO 4680 

4640 R=R+1:W=1:GOTO 46386) 

455% C=C-1:W=1:GOTO 46e¢ 

4568 C=aC+1i:W=1 

4478 REM __CSR LIMITS 

4680 IF R>@ THEN R=1 

4698 IF Rol THEN R=g 

474% IF C>8 THEN C=1 

4716 IF C1 THEN C=3 

4726 IF NOT W THEN 4838 

4728 REM __WRITE BIT 

474 P=CX+(RX-1) #8:MS=X$ (F,F) 
4750 IF M$="4" THEN M$="b°:GOTO 4770 
4750 IF M$="b" THEN M&="¢" 

3773 X$(P,P)=MS2? "E"SMSs "es 
4780 REM __PRNT IMAGE 

4798 POKE 752,1 

4800 X=USR (ADR (MS%) , ADR (X$) , CHAD 
4810 GOSUB 2518:POKE 752,¢ 

4820 REM __PRINT BYTE # 

4830 IF WOT N THEN 486a 

4848 POSITION 18,RX+4 


Learn to create your own 
customized character set for 
use in your games and programs 
by redesigning the letters and 
numbers built into the keyboard. 
Professor Von Chip and Proto will 
guide you through the many examples 
and the easy-to-understand manual in 
this information-packed tutorial. We 
also indlude the best character editor 
available for the ATARI. 

As a special bonus, we have included 
PROTO’S GARDEN, a complete game 
created using the techniques in this 
tutorial, as an example of 
Character Graphics. 


REQUIRES: 
I6K Tape / 32K Disk 
BASIC Cartridge 
Joystick 


